Я большой поклонник ggplot
, так что вот вариант в этом духе.Проще всего (и самый аккуратный) изменить форму данных с широкого на длинный, а затем сопоставить эстетику fill
с key
library(tidyverse)
df %>%
gather(key, val, -trt) %>%
ggplot(aes(trt, val, fill = key)) +
geom_col(position = "dodge2")
![enter image description here](https://i.stack.imgur.com/1KB0b.png)
PS.Для будущих публикаций, пожалуйста, поделитесь данными воспроизводимым способом, используя, например, dput
;Снимки экрана никогда не являются хорошей идеей, поскольку они требуют, чтобы респонденты вручную вводили ваши данные выборки.
Образцы данных
df <- read.table(text =
"trt avgRDM avgSDM
F10 49.5 108.333
NH4Cl 12.583 50.25
NH4NO3 17.333 73.33
'F10 + ANU843' 6.0 7.333", header = T)