Создать линейную диаграмму с заголовками столбцов по оси X

Question

Я хочу создать линейную диаграмму для df со следующей структурой:

Я хочу, чтобы линейная диаграмма отображала каждый вклад Участников в столбце. По оси X должны быть указаны имена столбцов T1a_PlantTree_1 - T1a_PlantTree_6, а по оси Y - средний вклад всех участников (в df как PROLIFIC_PID)

Ось Y может находиться в 0,20 , 40,60,80,100 шагов, но не обязательно.

В результате должна получиться диаграмма с единственной линией для среднего вклада каждого столбца, содержащего T1a_PlantTree_ в своем имени.

Я новичок в R и все еще борюсь с простыми задачами. Большое спасибо за любую помощь, которую я получаю, она ценится!

Я пробовал следующий код, но он дал 0 наблюдений ...

Далее результат: > dput (head (Treatment1a))

Best, Luca

Answer 1

Это то, что вы ищете?

library(tidyverse)
df <- tibble::tribble(
        ~Px,~T1a_PlantTree_1,~T1a_PlantTree_2,~T1a_PlantTree_3,~T1a_PlantTree_4,~T1a_PlantTree_5,
                                       "P1" , 15 , 40 , 20 , 60 , 58,
                                       "P2" , 15 , 40 , 20 , 60 , 58,
                                       "P3" , 15 , 40 , 20 , 60 , 58,
                                       "P4" , 15 , 40 , 20 , 60 , 58
  )

df %>% 
  pivot_longer(-Px, names_to = "Condition", values_to = "values") %>% 
  group_by(Condition) %>% 
  dplyr::summarise(mean_contribution = mean(values)) %>% 
  ggplot(aes(x = Condition, y = mean_contribution, group = 1)) +
  geom_line()