Create multiple labels for categories on the x-axis using ggplot

Reubebe · February 20, 2023, 6:06pm

I am trying to use a variable to categorize my xtick labels. A typical example of my intended plot is at the bottom left plot in the image below. Creating a different subset where different sticks belong to a different category.

[![enter image description here][1]][1]

tgc <- structure(list(GROUP = structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L), levels = c("LLL", "LRL", "RLR", "RRR"), class = "factor"), 
    condition = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
    2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 
    3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 
    3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 
    3), Tra = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
    10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 
    22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 
    34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 
    46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 1L, 
    2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 
    15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 
    27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 
    39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 
    51L, 52L, 53L, 54L, 55L, 56L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 
    8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 
    20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 
    32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 
    44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 
    56L), levels = c("1", "2", "3", "4", "5", "6", "7", "8", 
    "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", 
    "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", 
    "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", 
    "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", 
    "49", "50", "51", "52", "53", "54", "55", "56"), class = "factor"), 
    Tra2 = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), levels = c("Post-test", 
    "Pre-test", "Training"), class = "factor"), N = c(8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8), Abs_IDE = c(30.496394843125, 
    18.958457243625, 36.256053078875, 39.26766248875, 27.171807236625, 
    42.793501522, 30.73059134, 26.021594462875, 39.19461037, 
    27.85434321, 34.252849388, 24.907907749, 31.3952223825, 29.651282096375, 
    25.804586697875, 28.25756226, 27.5170143095, 22.470688528625, 
    23.444000582625, 26.864558619375, 31.054312496, 18.570278336625, 
    19.34950093775, 20.354325672, 20.181005940625, 25.47871695, 
    22.569523749125, 25.06690353675, 28.871343299125, 25.912732482625, 
    24.498242925875, 30.9332751615, 23.468351290875, 31.83926467375, 
    20.287719328375, 24.440230947125, 29.963544096125, 21.3226243465, 
    34.35311700225, 30.42835610375, 28.556216508, 20.30777285075, 
    24.92796127075, 25.339774687375, 18.314595921, 32.780347852875, 
    30.787887119625, 28.615660881, 14.963509016, 16.487576753, 
    29.9535173325, 15.497792160875, 26.879598761875, 41.214286598625, 
    25.949258541875, 32.9142767375, 21.551807463125, 27.4912312085, 
    27.596512202, 30.91823502125, 28.88781583375, 27.9417192735, 
    24.75392534075, 18.919066395875, 15.25428509825, 21.624143384625, 
    22.25941034, 25.3132753885, 26.103957145, 19.86158196725, 
    16.49473872425, 19.088805143125, 23.832179489625, 14.7371906875, 
    21.35413702275, 16.66089648475, 16.238340110375, 28.5096636875, 
    15.19627311975, 14.881862532625, 22.856002644875, 20.11798058125, 
    19.707599562, 15.952577409875, 20.3944327175, 16.89151199825, 
    17.90278250575, 17.494550075875, 17.72301699925, 21.208748983, 
    17.63134375075, 14.19502937375, 11.70552775375, 11.283687577875, 
    14.870403375, 19.1453847235, 24.088578101125, 14.157787117375, 
    18.133398019125, 13.8605652615, 18.01880646075, 21.571144789, 
    15.754190774, 20.294881300125, 19.577251662875, 10.31395650825, 
    25.500202868, 37.702055314875, 8.761957082, 18.981375555625, 
    12.988237019125, 19.831501684, 30.97266601025, 27.973231953375, 
    33.7472141325, 32.372115426375, 42.1904634425, 31.81419777125, 
    20.7883412025, 36.011829819, 26.772885371125, 22.9842019515, 
    34.237093047, 21.51886239125, 31.489044223875, 28.764629907625, 
    29.046811622875, 20.251193269625, 21.597644088625, 43.288393817125, 
    50.14813102375, 21.08986024, 26.35462618275, 38.689691313625, 
    30.337399056, 28.128646754625, 21.336948291875, 30.527907520875, 
    40.37776821825, 23.486972418625, 32.974437306875, 28.484596784375, 
    33.46932960375, 23.825733713375, 19.664627727125, 22.56880754975, 
    36.818984112125, 27.838586872375, 17.507441627, 18.924079775875, 
    34.340941648125, 26.48497408125, 32.95509998125, 33.8152528705, 
    33.44999227775, 36.515316480125, 44.40136433325, 33.8080908975, 
    27.071539623375, 43.97451077625, 39.998899875, 29.151376417875, 
    30.814386420875, 36.72516227375, 34.279348684375, 34.918196627625, 
    27.55998614275, 34.47558673025), sd = c(21.9066345668576, 
    15.6702493351409, 18.0226943860608, 13.0568890750794, 11.4456408362655, 
    25.067436348162, 16.6376988230911, 23.6771176384942, 15.5865654947913, 
    13.2714246169937, 16.6159058207624, 20.2199624516716, 20.8124147772985, 
    15.3403230242927, 13.7080333372947, 12.3294855644839, 13.7918777414743, 
    14.2569493829157, 13.3618579477082, 17.5449440865942, 20.2699005301635, 
    10.6699714660252, 15.2827376902255, 14.6652193657941, 10.6333274216636, 
    14.4317026669484, 11.5484819610334, 19.8759466138558, 23.6828623666388, 
    19.4286243165538, 23.1336534382271, 18.1759690141204, 16.8056244396697, 
    11.3363402883236, 11.9523345302393, 14.0471644706609, 21.3032492955771, 
    15.9829614252001, 22.9738926800209, 14.9730862121928, 19.1738687691444, 
    12.7130962849752, 18.0215052581757, 22.6533052065849, 15.3168320192677, 
    15.3222849735454, 12.1649497583162, 18.1278936103951, 11.6742657721594, 
    13.7601117988971, 17.0668385253681, 20.4536317840027, 18.9140349147, 
    27.1612020410396, 16.6482651539234, 14.0090140746432, 14.1880408646564, 
    15.888378503935, 20.6946370767654, 17.9847786289361, 11.711683171065, 
    18.0833475103648, 21.8321458720306, 14.9934167449432, 13.5082612061595, 
    15.1850692896749, 18.992734230857, 16.7692580382508, 16.9044930892154, 
    13.2925746279911, 18.433943102412, 15.4654844345157, 19.6163393169273, 
    15.3604843344067, 13.8765403302459, 13.9289534651613, 10.3973654818694, 
    18.3309733051144, 12.7590236932942, 14.3819847787768, 11.4625920864747, 
    19.5015121707596, 12.28084935522, 14.0512348541128, 16.9337150501653, 
    11.2242364954643, 15.2155233568674, 12.9809058574135, 8.45469224431551, 
    24.2129450052364, 16.847559488074, 18.0178380573739, 12.7106905527945, 
    2.67485470903932, 9.54065986720626, 11.0431767972755, 18.3307792045199, 
    10.908945320541, 11.0910166592419, 12.5642216579158, 14.7500714908256, 
    14.8614420536002, 19.3727763222392, 12.6194421000146, 13.8323741103024, 
    6.97548723336086, 15.3836675667292, 23.7643925133948, 8.86889002296628, 
    18.8317114923794, 23.9997853679696, 19.1741213692469, 18.4079481231055, 
    11.036911857746, 14.8941071967889, 19.4903286289054, 23.7024324863086, 
    23.5054902075233, 19.0588987052069, 27.7026003466534, 16.4474001696985, 
    24.5091347992119, 19.0126866510197, 15.1679393017262, 22.4479865769534, 
    20.3937017054368, 27.1553880766244, 20.0506739741349, 19.6272554292737, 
    35.9070108924884, 32.6583424587141, 8.51402858997969, 17.1133582589513, 
    25.8023709606822, 23.5312044406297, 23.2130301198426, 19.5691726986793, 
    19.5055608774138, 23.7826570346534, 17.2511797075077, 26.7192811656206, 
    22.0849236783614, 32.8910762759411, 27.1063190011243, 14.9672038127299, 
    23.3359221862269, 24.6567519120421, 31.8900718785586, 21.1858666875254, 
    15.6536678749804, 23.9692029750798, 17.1738785517805, 33.3750691203522, 
    23.909680986755, 32.4372856627174, 25.4438661197545, 30.4376938655793, 
    12.5708801596425, 17.0279221455215, 20.5132023016822, 16.6426769312702, 
    16.1836625397323, 16.1363988646829, 23.323082110554, 22.1108856554428, 
    23.2470647631233, 19.7742738438487, 29.0324995108184), se = c(7.74516492760033, 
    5.54026978388104, 6.37198470781814, 4.61630740309461, 4.04664512517452, 
    8.86267711437373, 5.88231483057359, 8.37112522056543, 5.51068307838758, 
    4.69215717134117, 5.87460984070907, 7.14883628245718, 7.35829981094744, 
    5.42362321803475, 4.84652166476619, 4.35913142559411, 4.87616513814616, 
    5.04059279384652, 4.72413018203792, 6.20307446958478, 7.16649205942772, 
    3.7724045893467, 5.40326372792683, 5.18493803057065, 3.75944896321758, 
    5.1023774099336, 4.08300495352861, 7.02720831657963, 8.37315628867899, 
    6.86905600168054, 8.17898160989492, 6.42617547226056, 5.94168550168241, 
    4.00800154585595, 4.22578839867117, 4.96642262682353, 7.53183601910507, 
    5.650830203601, 8.12249765214737, 5.29378539796616, 6.77898631412147, 
    4.49475829649175, 6.37156428762251, 8.00915286393236, 5.41531789355972, 
    5.41724580403334, 4.30095923344953, 6.40917825026933, 4.12747624643397, 
    4.86493418144257, 6.03403862735181, 7.23145086718051, 6.68712117389173, 
    9.60293507419851, 5.88605059266547, 4.95293442495898, 5.01622995357519, 
    5.61739009109551, 7.31665910558768, 6.3585794633298, 4.14070529468421, 
    6.3934288255659, 7.71882919698335, 5.30097332675262, 4.77589155045727, 
    5.36873273375835, 6.71494558395644, 5.92882803715708, 5.97664084795269, 
    4.69963482944036, 6.51738308586126, 5.46787445899052, 6.9354232765278, 
    5.43075131758434, 4.90609788346274, 4.92462872502372, 3.67602381935238, 
    6.480977764898, 4.51099608742408, 5.08479948199738, 4.05263829716074, 
    6.89482574966805, 4.34193592890324, 4.96786172469396, 5.98697237132628, 
    3.96836686979217, 5.37949987247163, 4.58944327886061, 2.9891851094004, 
    8.56056880284979, 5.95651178023043, 6.37026773634505, 4.49390774172238, 
    0.945703951725238, 3.37313264454795, 3.90435259959773, 6.4809091399747, 
    3.8568946058739, 3.92126654500144, 4.44212316732156, 5.21493778707456, 
    5.25431322715583, 6.84931075393278, 4.46164654185567, 4.89048276665205, 
    2.46620716239483, 5.43894782797688, 8.40198154850015, 3.13562613841859, 
    6.65801544880505, 8.48520549035649, 6.77907562174418, 6.50819247278905, 
    3.90213760898522, 5.26586209928439, 6.89087177052665, 8.38007537084257, 
    8.31044576042686, 6.73833825819965, 9.79434828080971, 5.8150340964413, 
    8.66528770876895, 6.7219998297555, 5.36267636843828, 7.93656176627417, 
    7.21026238470503, 9.60087952736673, 7.08898376723569, 6.93928270505997, 
    12.6950454471089, 11.5464677074346, 3.01016367559539, 6.05048583688965, 
    9.12251573849462, 8.31953711472812, 8.20704550481413, 6.9187473587234, 
    6.89625718363316, 8.40843903191869, 6.09921307732324, 9.44669245032017, 
    7.80819964747834, 11.628751537621, 9.58353098935038, 5.29170565569122, 
    8.25049441156133, 8.71747823951966, 11.2748430389276, 7.4903350000317, 
    5.53440735242033, 8.47439298165786, 6.07188299161909, 11.7998688487854, 
    8.45334878087077, 11.4683123276963, 8.99576513644054, 10.7613498680157, 
    4.44447730318332, 6.02027960930741, 7.2525122256855, 5.88407485759902, 
    5.72178876313969, 5.70507853057408, 8.24595475927171, 7.81737859250198, 
    8.21907856834366, 6.99126156401261, 10.2645386394474), ci = c(18.3144048203896, 
    13.1006562913318, 15.0673495708851, 10.9158324381648, 9.56879520057738, 
    20.9569012386845, 13.9094643038782, 19.794565709669, 13.0306948499973, 
    11.0951886396383, 13.8912448979863, 16.9043116441647, 17.3996141834569, 
    12.8248309928667, 11.460202664376, 10.3077078848401, 11.5302983404317, 
    11.9191079627333, 11.1707927961283, 14.6679403252162, 16.9460609225699, 
    8.92031937878913, 12.7766884488074, 12.2604302100931, 8.88968419104965, 
    12.0652053643082, 9.65477253248722, 16.6167072063787, 19.799368422587, 
    16.2427364071228, 19.3402182680889, 15.195490366698, 14.0498536326155, 
    9.47741765575234, 9.99240172959729, 11.7437233870461, 17.8099621097959, 
    13.3620901410679, 19.2066549317731, 12.5178133347585, 16.0297554395872, 
    10.6284144729323, 15.0663554350947, 18.9386370967683, 12.8051920211957, 
    12.8097508050565, 10.1701525085267, 15.1552983233679, 9.75993043019091, 
    11.5037413478418, 14.2682340732837, 17.0996640947367, 15.812528901124, 
    22.7073331629207, 13.9182979775189, 11.7118288578068, 11.86149899979, 
    13.2830168400614, 17.3011495617098, 15.0356512046695, 9.79121215850893, 
    15.1180568517655, 18.2521307130893, 12.5348100854857, 11.2931889831883, 
    12.695035622565, 15.8783231759493, 14.0194505601849, 14.132509892129, 
    11.1128704913248, 15.4111621017481, 12.9294685503938, 16.3996700747387, 
    12.8416862699294, 11.601078035924, 11.6448965132815, 8.69241507267338, 
    15.3250771969114, 10.6668107471631, 12.0236401696174, 9.58296680039998, 
    16.3036721781715, 10.2670469963466, 11.7471263127709, 14.1569400628541, 
    9.38369653952791, 12.7204958598867, 10.8523088785033, 7.06829960218823, 
    20.2425285986472, 14.084912210431, 15.0632895785006, 10.6264032304973, 
    2.23623449907663, 7.97619125513738, 9.23232684377812, 15.3249149247535, 
    9.12010652088683, 9.27232196926986, 10.5039521700107, 12.3313683618641, 
    12.4244764823974, 16.1960463154447, 10.550117614907, 11.564154152022, 
    5.83165326565063, 12.861067937182, 19.8675293310185, 7.41457761083282, 
    15.7437047977238, 20.0643226822452, 16.0299666185577, 15.3894297551906, 
    9.22708922325874, 12.4517852255112, 16.2943225032034, 19.8157294520697, 
    19.6510815866518, 15.9336380607744, 23.1599534733487, 13.750370648284, 
    20.4901494631839, 15.8950038166424, 12.6807145942527, 18.766986426796, 
    17.0495612952207, 22.702472567032, 16.7627829351531, 16.4087961730432, 
    30.0190123393062, 27.3030575612329, 7.11790602857653, 14.3071255438279, 
    21.5713219507812, 19.6725792235124, 19.406578834609, 16.3602377950809, 
    16.3070569816399, 19.8827988529143, 14.4223471582704, 22.3378780653655, 
    18.4634582477055, 27.4976279016054, 22.6614497933089, 12.5128955257381, 
    19.5093191732087, 20.6135604579006, 26.6607672827503, 17.7118277936292, 
    13.0867938437265, 20.0387551619559, 14.3577217748163, 27.9022560454521, 
    19.9889935344193, 27.1182494549112, 21.2716044032602, 25.4465488777846, 
    10.509518816761, 14.2356991655378, 17.1494662938291, 13.913626106466, 
    13.5298804718112, 13.4903670506368, 19.4985846013108, 18.4851630037125, 
    19.4350325084519, 16.5317066434927, 24.2717769982485)), row.names = c(NA, 
-168L), class = "data.frame")

p <- ggplot(tgc, aes(x = Tra, y = Abs_IDE), group = condition) +
  geom_errorbar(aes(ymin=Abs_IDE-se, ymax=Abs_IDE+se, group = condition), position = position_dodge(0.5), width=.1) +
  geom_line() +  geom_point()  + theme_bw() + theme(
    axis.text.x = element_text(size = 8,face="bold"),#, angle = 10, hjust = .5, vjust = .5),
    axis.text.y = element_text(size = 12, face = "bold"),
    axis.title.y = element_text(vjust= 1.8, size = 20),
    axis.title.x = element_text(vjust= -0.5, size = 18),
    axis.title = element_text(face = "bold")) + xlab("Trial number") + ylab("(Deg)") + theme(legend.position="top") +
  facet_nested(GROUP ~ condition, shrink=F ) + theme(aspect.ratio = 6/6)

p + guides(fill=guide_legend(title="Test:")) + theme(legend.text=element_text(size=18),legend.title=element_text(size=18) ) +
  theme(strip.text = element_text(face="bold", size=16)) + theme(axis.text.x = element_text(angle = 90, vjust = 0.6, hjust=1))

technocrat · February 21, 2023, 8:18am

Adjust to include group within the aes()

library(ggh4x)
#> Loading required package: ggplot2

tgc <- structure(list(
  GROUP = structure(c(
    4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
    4L
  ), levels = c("LLL", "LRL", "RLR", "RRR"), class = "factor"),
  condition = c(
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
    1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
    2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
    3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
    3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
    3
  ), Tra = structure(c(
    1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,
    10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L,
    22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L,
    34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L,
    46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 1L,
    2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L,
    15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L,
    27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L,
    39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L,
    51L, 52L, 53L, 54L, 55L, 56L, 1L, 2L, 3L, 4L, 5L, 6L, 7L,
    8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L,
    20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L,
    32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L,
    44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L,
    56L
  ), levels = c(
    "1", "2", "3", "4", "5", "6", "7", "8",
    "9", "10", "11", "12", "13", "14", "15", "16", "17", "18",
    "19", "20", "21", "22", "23", "24", "25", "26", "27", "28",
    "29", "30", "31", "32", "33", "34", "35", "36", "37", "38",
    "39", "40", "41", "42", "43", "44", "45", "46", "47", "48",
    "49", "50", "51", "52", "53", "54", "55", "56"
  ), class = "factor"),
  Tra2 = structure(c(
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
    1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L,
    2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L
  ), levels = c(
    "Post-test",
    "Pre-test", "Training"
  ), class = "factor"), N = c(
    8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
    8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8
  ), Abs_IDE = c(
    30.496394843125,
    18.958457243625, 36.256053078875, 39.26766248875, 27.171807236625,
    42.793501522, 30.73059134, 26.021594462875, 39.19461037,
    27.85434321, 34.252849388, 24.907907749, 31.3952223825, 29.651282096375,
    25.804586697875, 28.25756226, 27.5170143095, 22.470688528625,
    23.444000582625, 26.864558619375, 31.054312496, 18.570278336625,
    19.34950093775, 20.354325672, 20.181005940625, 25.47871695,
    22.569523749125, 25.06690353675, 28.871343299125, 25.912732482625,
    24.498242925875, 30.9332751615, 23.468351290875, 31.83926467375,
    20.287719328375, 24.440230947125, 29.963544096125, 21.3226243465,
    34.35311700225, 30.42835610375, 28.556216508, 20.30777285075,
    24.92796127075, 25.339774687375, 18.314595921, 32.780347852875,
    30.787887119625, 28.615660881, 14.963509016, 16.487576753,
    29.9535173325, 15.497792160875, 26.879598761875, 41.214286598625,
    25.949258541875, 32.9142767375, 21.551807463125, 27.4912312085,
    27.596512202, 30.91823502125, 28.88781583375, 27.9417192735,
    24.75392534075, 18.919066395875, 15.25428509825, 21.624143384625,
    22.25941034, 25.3132753885, 26.103957145, 19.86158196725,
    16.49473872425, 19.088805143125, 23.832179489625, 14.7371906875,
    21.35413702275, 16.66089648475, 16.238340110375, 28.5096636875,
    15.19627311975, 14.881862532625, 22.856002644875, 20.11798058125,
    19.707599562, 15.952577409875, 20.3944327175, 16.89151199825,
    17.90278250575, 17.494550075875, 17.72301699925, 21.208748983,
    17.63134375075, 14.19502937375, 11.70552775375, 11.283687577875,
    14.870403375, 19.1453847235, 24.088578101125, 14.157787117375,
    18.133398019125, 13.8605652615, 18.01880646075, 21.571144789,
    15.754190774, 20.294881300125, 19.577251662875, 10.31395650825,
    25.500202868, 37.702055314875, 8.761957082, 18.981375555625,
    12.988237019125, 19.831501684, 30.97266601025, 27.973231953375,
    33.7472141325, 32.372115426375, 42.1904634425, 31.81419777125,
    20.7883412025, 36.011829819, 26.772885371125, 22.9842019515,
    34.237093047, 21.51886239125, 31.489044223875, 28.764629907625,
    29.046811622875, 20.251193269625, 21.597644088625, 43.288393817125,
    50.14813102375, 21.08986024, 26.35462618275, 38.689691313625,
    30.337399056, 28.128646754625, 21.336948291875, 30.527907520875,
    40.37776821825, 23.486972418625, 32.974437306875, 28.484596784375,
    33.46932960375, 23.825733713375, 19.664627727125, 22.56880754975,
    36.818984112125, 27.838586872375, 17.507441627, 18.924079775875,
    34.340941648125, 26.48497408125, 32.95509998125, 33.8152528705,
    33.44999227775, 36.515316480125, 44.40136433325, 33.8080908975,
    27.071539623375, 43.97451077625, 39.998899875, 29.151376417875,
    30.814386420875, 36.72516227375, 34.279348684375, 34.918196627625,
    27.55998614275, 34.47558673025
  ), sd = c(
    21.9066345668576,
    15.6702493351409, 18.0226943860608, 13.0568890750794, 11.4456408362655,
    25.067436348162, 16.6376988230911, 23.6771176384942, 15.5865654947913,
    13.2714246169937, 16.6159058207624, 20.2199624516716, 20.8124147772985,
    15.3403230242927, 13.7080333372947, 12.3294855644839, 13.7918777414743,
    14.2569493829157, 13.3618579477082, 17.5449440865942, 20.2699005301635,
    10.6699714660252, 15.2827376902255, 14.6652193657941, 10.6333274216636,
    14.4317026669484, 11.5484819610334, 19.8759466138558, 23.6828623666388,
    19.4286243165538, 23.1336534382271, 18.1759690141204, 16.8056244396697,
    11.3363402883236, 11.9523345302393, 14.0471644706609, 21.3032492955771,
    15.9829614252001, 22.9738926800209, 14.9730862121928, 19.1738687691444,
    12.7130962849752, 18.0215052581757, 22.6533052065849, 15.3168320192677,
    15.3222849735454, 12.1649497583162, 18.1278936103951, 11.6742657721594,
    13.7601117988971, 17.0668385253681, 20.4536317840027, 18.9140349147,
    27.1612020410396, 16.6482651539234, 14.0090140746432, 14.1880408646564,
    15.888378503935, 20.6946370767654, 17.9847786289361, 11.711683171065,
    18.0833475103648, 21.8321458720306, 14.9934167449432, 13.5082612061595,
    15.1850692896749, 18.992734230857, 16.7692580382508, 16.9044930892154,
    13.2925746279911, 18.433943102412, 15.4654844345157, 19.6163393169273,
    15.3604843344067, 13.8765403302459, 13.9289534651613, 10.3973654818694,
    18.3309733051144, 12.7590236932942, 14.3819847787768, 11.4625920864747,
    19.5015121707596, 12.28084935522, 14.0512348541128, 16.9337150501653,
    11.2242364954643, 15.2155233568674, 12.9809058574135, 8.45469224431551,
    24.2129450052364, 16.847559488074, 18.0178380573739, 12.7106905527945,
    2.67485470903932, 9.54065986720626, 11.0431767972755, 18.3307792045199,
    10.908945320541, 11.0910166592419, 12.5642216579158, 14.7500714908256,
    14.8614420536002, 19.3727763222392, 12.6194421000146, 13.8323741103024,
    6.97548723336086, 15.3836675667292, 23.7643925133948, 8.86889002296628,
    18.8317114923794, 23.9997853679696, 19.1741213692469, 18.4079481231055,
    11.036911857746, 14.8941071967889, 19.4903286289054, 23.7024324863086,
    23.5054902075233, 19.0588987052069, 27.7026003466534, 16.4474001696985,
    24.5091347992119, 19.0126866510197, 15.1679393017262, 22.4479865769534,
    20.3937017054368, 27.1553880766244, 20.0506739741349, 19.6272554292737,
    35.9070108924884, 32.6583424587141, 8.51402858997969, 17.1133582589513,
    25.8023709606822, 23.5312044406297, 23.2130301198426, 19.5691726986793,
    19.5055608774138, 23.7826570346534, 17.2511797075077, 26.7192811656206,
    22.0849236783614, 32.8910762759411, 27.1063190011243, 14.9672038127299,
    23.3359221862269, 24.6567519120421, 31.8900718785586, 21.1858666875254,
    15.6536678749804, 23.9692029750798, 17.1738785517805, 33.3750691203522,
    23.909680986755, 32.4372856627174, 25.4438661197545, 30.4376938655793,
    12.5708801596425, 17.0279221455215, 20.5132023016822, 16.6426769312702,
    16.1836625397323, 16.1363988646829, 23.323082110554, 22.1108856554428,
    23.2470647631233, 19.7742738438487, 29.0324995108184
  ), se = c(
    7.74516492760033,
    5.54026978388104, 6.37198470781814, 4.61630740309461, 4.04664512517452,
    8.86267711437373, 5.88231483057359, 8.37112522056543, 5.51068307838758,
    4.69215717134117, 5.87460984070907, 7.14883628245718, 7.35829981094744,
    5.42362321803475, 4.84652166476619, 4.35913142559411, 4.87616513814616,
    5.04059279384652, 4.72413018203792, 6.20307446958478, 7.16649205942772,
    3.7724045893467, 5.40326372792683, 5.18493803057065, 3.75944896321758,
    5.1023774099336, 4.08300495352861, 7.02720831657963, 8.37315628867899,
    6.86905600168054, 8.17898160989492, 6.42617547226056, 5.94168550168241,
    4.00800154585595, 4.22578839867117, 4.96642262682353, 7.53183601910507,
    5.650830203601, 8.12249765214737, 5.29378539796616, 6.77898631412147,
    4.49475829649175, 6.37156428762251, 8.00915286393236, 5.41531789355972,
    5.41724580403334, 4.30095923344953, 6.40917825026933, 4.12747624643397,
    4.86493418144257, 6.03403862735181, 7.23145086718051, 6.68712117389173,
    9.60293507419851, 5.88605059266547, 4.95293442495898, 5.01622995357519,
    5.61739009109551, 7.31665910558768, 6.3585794633298, 4.14070529468421,
    6.3934288255659, 7.71882919698335, 5.30097332675262, 4.77589155045727,
    5.36873273375835, 6.71494558395644, 5.92882803715708, 5.97664084795269,
    4.69963482944036, 6.51738308586126, 5.46787445899052, 6.9354232765278,
    5.43075131758434, 4.90609788346274, 4.92462872502372, 3.67602381935238,
    6.480977764898, 4.51099608742408, 5.08479948199738, 4.05263829716074,
    6.89482574966805, 4.34193592890324, 4.96786172469396, 5.98697237132628,
    3.96836686979217, 5.37949987247163, 4.58944327886061, 2.9891851094004,
    8.56056880284979, 5.95651178023043, 6.37026773634505, 4.49390774172238,
    0.945703951725238, 3.37313264454795, 3.90435259959773, 6.4809091399747,
    3.8568946058739, 3.92126654500144, 4.44212316732156, 5.21493778707456,
    5.25431322715583, 6.84931075393278, 4.46164654185567, 4.89048276665205,
    2.46620716239483, 5.43894782797688, 8.40198154850015, 3.13562613841859,
    6.65801544880505, 8.48520549035649, 6.77907562174418, 6.50819247278905,
    3.90213760898522, 5.26586209928439, 6.89087177052665, 8.38007537084257,
    8.31044576042686, 6.73833825819965, 9.79434828080971, 5.8150340964413,
    8.66528770876895, 6.7219998297555, 5.36267636843828, 7.93656176627417,
    7.21026238470503, 9.60087952736673, 7.08898376723569, 6.93928270505997,
    12.6950454471089, 11.5464677074346, 3.01016367559539, 6.05048583688965,
    9.12251573849462, 8.31953711472812, 8.20704550481413, 6.9187473587234,
    6.89625718363316, 8.40843903191869, 6.09921307732324, 9.44669245032017,
    7.80819964747834, 11.628751537621, 9.58353098935038, 5.29170565569122,
    8.25049441156133, 8.71747823951966, 11.2748430389276, 7.4903350000317,
    5.53440735242033, 8.47439298165786, 6.07188299161909, 11.7998688487854,
    8.45334878087077, 11.4683123276963, 8.99576513644054, 10.7613498680157,
    4.44447730318332, 6.02027960930741, 7.2525122256855, 5.88407485759902,
    5.72178876313969, 5.70507853057408, 8.24595475927171, 7.81737859250198,
    8.21907856834366, 6.99126156401261, 10.2645386394474
  ), ci = c(
    18.3144048203896,
    13.1006562913318, 15.0673495708851, 10.9158324381648, 9.56879520057738,
    20.9569012386845, 13.9094643038782, 19.794565709669, 13.0306948499973,
    11.0951886396383, 13.8912448979863, 16.9043116441647, 17.3996141834569,
    12.8248309928667, 11.460202664376, 10.3077078848401, 11.5302983404317,
    11.9191079627333, 11.1707927961283, 14.6679403252162, 16.9460609225699,
    8.92031937878913, 12.7766884488074, 12.2604302100931, 8.88968419104965,
    12.0652053643082, 9.65477253248722, 16.6167072063787, 19.799368422587,
    16.2427364071228, 19.3402182680889, 15.195490366698, 14.0498536326155,
    9.47741765575234, 9.99240172959729, 11.7437233870461, 17.8099621097959,
    13.3620901410679, 19.2066549317731, 12.5178133347585, 16.0297554395872,
    10.6284144729323, 15.0663554350947, 18.9386370967683, 12.8051920211957,
    12.8097508050565, 10.1701525085267, 15.1552983233679, 9.75993043019091,
    11.5037413478418, 14.2682340732837, 17.0996640947367, 15.812528901124,
    22.7073331629207, 13.9182979775189, 11.7118288578068, 11.86149899979,
    13.2830168400614, 17.3011495617098, 15.0356512046695, 9.79121215850893,
    15.1180568517655, 18.2521307130893, 12.5348100854857, 11.2931889831883,
    12.695035622565, 15.8783231759493, 14.0194505601849, 14.132509892129,
    11.1128704913248, 15.4111621017481, 12.9294685503938, 16.3996700747387,
    12.8416862699294, 11.601078035924, 11.6448965132815, 8.69241507267338,
    15.3250771969114, 10.6668107471631, 12.0236401696174, 9.58296680039998,
    16.3036721781715, 10.2670469963466, 11.7471263127709, 14.1569400628541,
    9.38369653952791, 12.7204958598867, 10.8523088785033, 7.06829960218823,
    20.2425285986472, 14.084912210431, 15.0632895785006, 10.6264032304973,
    2.23623449907663, 7.97619125513738, 9.23232684377812, 15.3249149247535,
    9.12010652088683, 9.27232196926986, 10.5039521700107, 12.3313683618641,
    12.4244764823974, 16.1960463154447, 10.550117614907, 11.564154152022,
    5.83165326565063, 12.861067937182, 19.8675293310185, 7.41457761083282,
    15.7437047977238, 20.0643226822452, 16.0299666185577, 15.3894297551906,
    9.22708922325874, 12.4517852255112, 16.2943225032034, 19.8157294520697,
    19.6510815866518, 15.9336380607744, 23.1599534733487, 13.750370648284,
    20.4901494631839, 15.8950038166424, 12.6807145942527, 18.766986426796,
    17.0495612952207, 22.702472567032, 16.7627829351531, 16.4087961730432,
    30.0190123393062, 27.3030575612329, 7.11790602857653, 14.3071255438279,
    21.5713219507812, 19.6725792235124, 19.406578834609, 16.3602377950809,
    16.3070569816399, 19.8827988529143, 14.4223471582704, 22.3378780653655,
    18.4634582477055, 27.4976279016054, 22.6614497933089, 12.5128955257381,
    19.5093191732087, 20.6135604579006, 26.6607672827503, 17.7118277936292,
    13.0867938437265, 20.0387551619559, 14.3577217748163, 27.9022560454521,
    19.9889935344193, 27.1182494549112, 21.2716044032602, 25.4465488777846,
    10.509518816761, 14.2356991655378, 17.1494662938291, 13.913626106466,
    13.5298804718112, 13.4903670506368, 19.4985846013108, 18.4851630037125,
    19.4350325084519, 16.5317066434927, 24.2717769982485
  )
), row.names = c(
  NA,
  -168L
), class = "data.frame")

p <- ggplot(tgc, aes(x = Tra, y = Abs_IDE, group = condition)) +
  geom_errorbar(aes(ymin = Abs_IDE - se, ymax = Abs_IDE + se, group = 2), position = position_dodge(0.5), width = .1) +
  geom_line() +
  geom_point() +
  theme_bw() +
  theme(
    axis.text.x = element_text(size = 8, face = "bold"), # , angle = 10, hjust = .5, vjust = .5),
    axis.text.y = element_text(size = 12, face = "bold"),
    axis.title.y = element_text(vjust = 1.8, size = 20),
    axis.title.x = element_text(vjust = -0.5, size = 18),
    axis.title = element_text(face = "bold")
  ) +
  xlab("Trial number") +
  ylab("(Deg)") +
  theme(legend.position = "top") +
  facet_nested(GROUP ~ condition, shrink = F) +
  theme(aspect.ratio = 6 / 6)

p + guides(fill = guide_legend(title = "Test:")) + theme(legend.text = element_text(size = 18), legend.title = element_text(size = 18)) +
  theme(strip.text = element_text(face = "bold", size = 16)) + theme(axis.text.x = element_text(angle = 90, vjust = 0.6, hjust = 1))

^{Created on 2023-02-21 with reprex v2.0.2}

nirgrahamuk · February 21, 2023, 11:31am

you still have sizes and positions to sort out, but technically you can use geom_text to throw up labels; and the trick is coord_cartesian() with clip="off" for drawing geom's out of the bounds of the plot itself.

 library(ggh4x)
 #> Loading required package: ggplot2

 tgc <- structure(list(
   GROUP = structure(c(
     4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L,
     4L
   ), levels = c("LLL", "LRL", "RLR", "RRR"), class = "factor"),
   condition = c(
     1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
     2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
     2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
     2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
     3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
     3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
     3
   ), Tra = structure(c(
     1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,
     10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L,
     22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L,
     34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L,
     46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 1L,
     2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L,
     15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L,
     27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L,
     39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L,
     51L, 52L, 53L, 54L, 55L, 56L, 1L, 2L, 3L, 4L, 5L, 6L, 7L,
     8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L,
     20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L,
     32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L,
     44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L,
     56L
   ), levels = c(
     "1", "2", "3", "4", "5", "6", "7", "8",
     "9", "10", "11", "12", "13", "14", "15", "16", "17", "18",
     "19", "20", "21", "22", "23", "24", "25", "26", "27", "28",
     "29", "30", "31", "32", "33", "34", "35", "36", "37", "38",
     "39", "40", "41", "42", "43", "44", "45", "46", "47", "48",
     "49", "50", "51", "52", "53", "54", "55", "56"
   ), class = "factor"),
   Tra2 = structure(c(
     2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
     1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L,
     2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L,
     1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L
   ), levels = c(
     "Post-test",
     "Pre-test", "Training"
   ), class = "factor"), N = c(
     8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
     8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8
   ), Abs_IDE = c(
     30.496394843125,
     18.958457243625, 36.256053078875, 39.26766248875, 27.171807236625,
     42.793501522, 30.73059134, 26.021594462875, 39.19461037,
     27.85434321, 34.252849388, 24.907907749, 31.3952223825, 29.651282096375,
     25.804586697875, 28.25756226, 27.5170143095, 22.470688528625,
     23.444000582625, 26.864558619375, 31.054312496, 18.570278336625,
     19.34950093775, 20.354325672, 20.181005940625, 25.47871695,
     22.569523749125, 25.06690353675, 28.871343299125, 25.912732482625,
     24.498242925875, 30.9332751615, 23.468351290875, 31.83926467375,
     20.287719328375, 24.440230947125, 29.963544096125, 21.3226243465,
     34.35311700225, 30.42835610375, 28.556216508, 20.30777285075,
     24.92796127075, 25.339774687375, 18.314595921, 32.780347852875,
     30.787887119625, 28.615660881, 14.963509016, 16.487576753,
     29.9535173325, 15.497792160875, 26.879598761875, 41.214286598625,
     25.949258541875, 32.9142767375, 21.551807463125, 27.4912312085,
     27.596512202, 30.91823502125, 28.88781583375, 27.9417192735,
     24.75392534075, 18.919066395875, 15.25428509825, 21.624143384625,
     22.25941034, 25.3132753885, 26.103957145, 19.86158196725,
     16.49473872425, 19.088805143125, 23.832179489625, 14.7371906875,
     21.35413702275, 16.66089648475, 16.238340110375, 28.5096636875,
     15.19627311975, 14.881862532625, 22.856002644875, 20.11798058125,
     19.707599562, 15.952577409875, 20.3944327175, 16.89151199825,
     17.90278250575, 17.494550075875, 17.72301699925, 21.208748983,
     17.63134375075, 14.19502937375, 11.70552775375, 11.283687577875,
     14.870403375, 19.1453847235, 24.088578101125, 14.157787117375,
     18.133398019125, 13.8605652615, 18.01880646075, 21.571144789,
     15.754190774, 20.294881300125, 19.577251662875, 10.31395650825,
     25.500202868, 37.702055314875, 8.761957082, 18.981375555625,
     12.988237019125, 19.831501684, 30.97266601025, 27.973231953375,
     33.7472141325, 32.372115426375, 42.1904634425, 31.81419777125,
     20.7883412025, 36.011829819, 26.772885371125, 22.9842019515,
     34.237093047, 21.51886239125, 31.489044223875, 28.764629907625,
     29.046811622875, 20.251193269625, 21.597644088625, 43.288393817125,
     50.14813102375, 21.08986024, 26.35462618275, 38.689691313625,
     30.337399056, 28.128646754625, 21.336948291875, 30.527907520875,
     40.37776821825, 23.486972418625, 32.974437306875, 28.484596784375,
     33.46932960375, 23.825733713375, 19.664627727125, 22.56880754975,
     36.818984112125, 27.838586872375, 17.507441627, 18.924079775875,
     34.340941648125, 26.48497408125, 32.95509998125, 33.8152528705,
     33.44999227775, 36.515316480125, 44.40136433325, 33.8080908975,
     27.071539623375, 43.97451077625, 39.998899875, 29.151376417875,
     30.814386420875, 36.72516227375, 34.279348684375, 34.918196627625,
     27.55998614275, 34.47558673025
   ), sd = c(
     21.9066345668576,
     15.6702493351409, 18.0226943860608, 13.0568890750794, 11.4456408362655,
     25.067436348162, 16.6376988230911, 23.6771176384942, 15.5865654947913,
     13.2714246169937, 16.6159058207624, 20.2199624516716, 20.8124147772985,
     15.3403230242927, 13.7080333372947, 12.3294855644839, 13.7918777414743,
     14.2569493829157, 13.3618579477082, 17.5449440865942, 20.2699005301635,
     10.6699714660252, 15.2827376902255, 14.6652193657941, 10.6333274216636,
     14.4317026669484, 11.5484819610334, 19.8759466138558, 23.6828623666388,
     19.4286243165538, 23.1336534382271, 18.1759690141204, 16.8056244396697,
     11.3363402883236, 11.9523345302393, 14.0471644706609, 21.3032492955771,
     15.9829614252001, 22.9738926800209, 14.9730862121928, 19.1738687691444,
     12.7130962849752, 18.0215052581757, 22.6533052065849, 15.3168320192677,
     15.3222849735454, 12.1649497583162, 18.1278936103951, 11.6742657721594,
     13.7601117988971, 17.0668385253681, 20.4536317840027, 18.9140349147,
     27.1612020410396, 16.6482651539234, 14.0090140746432, 14.1880408646564,
     15.888378503935, 20.6946370767654, 17.9847786289361, 11.711683171065,
     18.0833475103648, 21.8321458720306, 14.9934167449432, 13.5082612061595,
     15.1850692896749, 18.992734230857, 16.7692580382508, 16.9044930892154,
     13.2925746279911, 18.433943102412, 15.4654844345157, 19.6163393169273,
     15.3604843344067, 13.8765403302459, 13.9289534651613, 10.3973654818694,
     18.3309733051144, 12.7590236932942, 14.3819847787768, 11.4625920864747,
     19.5015121707596, 12.28084935522, 14.0512348541128, 16.9337150501653,
     11.2242364954643, 15.2155233568674, 12.9809058574135, 8.45469224431551,
     24.2129450052364, 16.847559488074, 18.0178380573739, 12.7106905527945,
     2.67485470903932, 9.54065986720626, 11.0431767972755, 18.3307792045199,
     10.908945320541, 11.0910166592419, 12.5642216579158, 14.7500714908256,
     14.8614420536002, 19.3727763222392, 12.6194421000146, 13.8323741103024,
     6.97548723336086, 15.3836675667292, 23.7643925133948, 8.86889002296628,
     18.8317114923794, 23.9997853679696, 19.1741213692469, 18.4079481231055,
     11.036911857746, 14.8941071967889, 19.4903286289054, 23.7024324863086,
     23.5054902075233, 19.0588987052069, 27.7026003466534, 16.4474001696985,
     24.5091347992119, 19.0126866510197, 15.1679393017262, 22.4479865769534,
     20.3937017054368, 27.1553880766244, 20.0506739741349, 19.6272554292737,
     35.9070108924884, 32.6583424587141, 8.51402858997969, 17.1133582589513,
     25.8023709606822, 23.5312044406297, 23.2130301198426, 19.5691726986793,
     19.5055608774138, 23.7826570346534, 17.2511797075077, 26.7192811656206,
     22.0849236783614, 32.8910762759411, 27.1063190011243, 14.9672038127299,
     23.3359221862269, 24.6567519120421, 31.8900718785586, 21.1858666875254,
     15.6536678749804, 23.9692029750798, 17.1738785517805, 33.3750691203522,
     23.909680986755, 32.4372856627174, 25.4438661197545, 30.4376938655793,
     12.5708801596425, 17.0279221455215, 20.5132023016822, 16.6426769312702,
     16.1836625397323, 16.1363988646829, 23.323082110554, 22.1108856554428,
     23.2470647631233, 19.7742738438487, 29.0324995108184
   ), se = c(
     7.74516492760033,
     5.54026978388104, 6.37198470781814, 4.61630740309461, 4.04664512517452,
     8.86267711437373, 5.88231483057359, 8.37112522056543, 5.51068307838758,
     4.69215717134117, 5.87460984070907, 7.14883628245718, 7.35829981094744,
     5.42362321803475, 4.84652166476619, 4.35913142559411, 4.87616513814616,
     5.04059279384652, 4.72413018203792, 6.20307446958478, 7.16649205942772,
     3.7724045893467, 5.40326372792683, 5.18493803057065, 3.75944896321758,
     5.1023774099336, 4.08300495352861, 7.02720831657963, 8.37315628867899,
     6.86905600168054, 8.17898160989492, 6.42617547226056, 5.94168550168241,
     4.00800154585595, 4.22578839867117, 4.96642262682353, 7.53183601910507,
     5.650830203601, 8.12249765214737, 5.29378539796616, 6.77898631412147,
     4.49475829649175, 6.37156428762251, 8.00915286393236, 5.41531789355972,
     5.41724580403334, 4.30095923344953, 6.40917825026933, 4.12747624643397,
     4.86493418144257, 6.03403862735181, 7.23145086718051, 6.68712117389173,
     9.60293507419851, 5.88605059266547, 4.95293442495898, 5.01622995357519,
     5.61739009109551, 7.31665910558768, 6.3585794633298, 4.14070529468421,
     6.3934288255659, 7.71882919698335, 5.30097332675262, 4.77589155045727,
     5.36873273375835, 6.71494558395644, 5.92882803715708, 5.97664084795269,
     4.69963482944036, 6.51738308586126, 5.46787445899052, 6.9354232765278,
     5.43075131758434, 4.90609788346274, 4.92462872502372, 3.67602381935238,
     6.480977764898, 4.51099608742408, 5.08479948199738, 4.05263829716074,
     6.89482574966805, 4.34193592890324, 4.96786172469396, 5.98697237132628,
     3.96836686979217, 5.37949987247163, 4.58944327886061, 2.9891851094004,
     8.56056880284979, 5.95651178023043, 6.37026773634505, 4.49390774172238,
     0.945703951725238, 3.37313264454795, 3.90435259959773, 6.4809091399747,
     3.8568946058739, 3.92126654500144, 4.44212316732156, 5.21493778707456,
     5.25431322715583, 6.84931075393278, 4.46164654185567, 4.89048276665205,
     2.46620716239483, 5.43894782797688, 8.40198154850015, 3.13562613841859,
     6.65801544880505, 8.48520549035649, 6.77907562174418, 6.50819247278905,
     3.90213760898522, 5.26586209928439, 6.89087177052665, 8.38007537084257,
     8.31044576042686, 6.73833825819965, 9.79434828080971, 5.8150340964413,
     8.66528770876895, 6.7219998297555, 5.36267636843828, 7.93656176627417,
     7.21026238470503, 9.60087952736673, 7.08898376723569, 6.93928270505997,
     12.6950454471089, 11.5464677074346, 3.01016367559539, 6.05048583688965,
     9.12251573849462, 8.31953711472812, 8.20704550481413, 6.9187473587234,
     6.89625718363316, 8.40843903191869, 6.09921307732324, 9.44669245032017,
     7.80819964747834, 11.628751537621, 9.58353098935038, 5.29170565569122,
     8.25049441156133, 8.71747823951966, 11.2748430389276, 7.4903350000317,
     5.53440735242033, 8.47439298165786, 6.07188299161909, 11.7998688487854,
     8.45334878087077, 11.4683123276963, 8.99576513644054, 10.7613498680157,
     4.44447730318332, 6.02027960930741, 7.2525122256855, 5.88407485759902,
     5.72178876313969, 5.70507853057408, 8.24595475927171, 7.81737859250198,
     8.21907856834366, 6.99126156401261, 10.2645386394474
   ), ci = c(
     18.3144048203896,
     13.1006562913318, 15.0673495708851, 10.9158324381648, 9.56879520057738,
     20.9569012386845, 13.9094643038782, 19.794565709669, 13.0306948499973,
     11.0951886396383, 13.8912448979863, 16.9043116441647, 17.3996141834569,
     12.8248309928667, 11.460202664376, 10.3077078848401, 11.5302983404317,
     11.9191079627333, 11.1707927961283, 14.6679403252162, 16.9460609225699,
     8.92031937878913, 12.7766884488074, 12.2604302100931, 8.88968419104965,
     12.0652053643082, 9.65477253248722, 16.6167072063787, 19.799368422587,
     16.2427364071228, 19.3402182680889, 15.195490366698, 14.0498536326155,
     9.47741765575234, 9.99240172959729, 11.7437233870461, 17.8099621097959,
     13.3620901410679, 19.2066549317731, 12.5178133347585, 16.0297554395872,
     10.6284144729323, 15.0663554350947, 18.9386370967683, 12.8051920211957,
     12.8097508050565, 10.1701525085267, 15.1552983233679, 9.75993043019091,
     11.5037413478418, 14.2682340732837, 17.0996640947367, 15.812528901124,
     22.7073331629207, 13.9182979775189, 11.7118288578068, 11.86149899979,
     13.2830168400614, 17.3011495617098, 15.0356512046695, 9.79121215850893,
     15.1180568517655, 18.2521307130893, 12.5348100854857, 11.2931889831883,
     12.695035622565, 15.8783231759493, 14.0194505601849, 14.132509892129,
     11.1128704913248, 15.4111621017481, 12.9294685503938, 16.3996700747387,
     12.8416862699294, 11.601078035924, 11.6448965132815, 8.69241507267338,
     15.3250771969114, 10.6668107471631, 12.0236401696174, 9.58296680039998,
     16.3036721781715, 10.2670469963466, 11.7471263127709, 14.1569400628541,
     9.38369653952791, 12.7204958598867, 10.8523088785033, 7.06829960218823,
     20.2425285986472, 14.084912210431, 15.0632895785006, 10.6264032304973,
     2.23623449907663, 7.97619125513738, 9.23232684377812, 15.3249149247535,
     9.12010652088683, 9.27232196926986, 10.5039521700107, 12.3313683618641,
     12.4244764823974, 16.1960463154447, 10.550117614907, 11.564154152022,
     5.83165326565063, 12.861067937182, 19.8675293310185, 7.41457761083282,
     15.7437047977238, 20.0643226822452, 16.0299666185577, 15.3894297551906,
     9.22708922325874, 12.4517852255112, 16.2943225032034, 19.8157294520697,
     19.6510815866518, 15.9336380607744, 23.1599534733487, 13.750370648284,
     20.4901494631839, 15.8950038166424, 12.6807145942527, 18.766986426796,
     17.0495612952207, 22.702472567032, 16.7627829351531, 16.4087961730432,
     30.0190123393062, 27.3030575612329, 7.11790602857653, 14.3071255438279,
     21.5713219507812, 19.6725792235124, 19.406578834609, 16.3602377950809,
     16.3070569816399, 19.8827988529143, 14.4223471582704, 22.3378780653655,
     18.4634582477055, 27.4976279016054, 22.6614497933089, 12.5128955257381,
     19.5093191732087, 20.6135604579006, 26.6607672827503, 17.7118277936292,
     13.0867938437265, 20.0387551619559, 14.3577217748163, 27.9022560454521,
     19.9889935344193, 27.1182494549112, 21.2716044032602, 25.4465488777846,
     10.509518816761, 14.2356991655378, 17.1494662938291, 13.913626106466,
     13.5298804718112, 13.4903670506368, 19.4985846013108, 18.4851630037125,
     19.4350325084519, 16.5317066434927, 24.2717769982485
   )
 ), row.names = c(
   NA,
   -168L
 ), class = "data.frame")

 tgc$Tra <- as.integer(as.character(tgc$Tra))

 p <- ggplot(tgc, aes(x = Tra, y = Abs_IDE, group = condition)) +
   geom_errorbar(aes(ymin = Abs_IDE - se, ymax = Abs_IDE + se, group = 2), position = position_dodge(0.5), width = .1) +
   geom_line() +
   geom_point() +
   theme_bw() +
   theme(
     axis.text.x = element_text(size = 8, face = "bold"), # , angle = 10, hjust = .5, vjust = .5),
     axis.text.y = element_text(size = 12, face = "bold"),
     axis.title.y = element_text(vjust = 1.8, size = 20),
     axis.title.x = element_text(vjust = -0.5, size = 18),
     axis.title = element_text(face = "bold")
   ) +
   xlab("Trial number") +
   ylab("(Deg)") +
   theme(legend.position = "top") +
   facet_nested(GROUP ~ condition, shrink = F) +
   theme(aspect.ratio = 6 / 6)

 p <- p + guides(fill = guide_legend(title = "Test:")) +
   theme(
     axis.title.x = element_text(
       size = 14,
       vjust = -10
     ),
     legend.text = element_text(size = 18),
     legend.title = element_text(size = 18),
     strip.text = element_text(face = "bold", size = 16),
     axis.text.x = element_text(angle = 90, vjust = 0.6, hjust = 1)
   )

 (my_annot <- tgc |> group_by(Tra2) |>
   summarise(
     minTra = min(Tra)
   ) |> arrange(minTra) |>
   mutate(
     condition = 1,
     texty = c(-2, -6, -2)
   ) )
   
 p +
   coord_cartesian(
     clip = "off",
     xlim = range(tgc$Tra),
     ylim = range(tgc$Abs_IDE)
   ) +
   geom_text(
     data = my_annot,
     mapping = aes(
       x = minTra,
       y = texty,
       label = Tra2
     )
   )

system · April 4, 2023, 11:32am

This topic was automatically closed 42 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.