在条形图中绘制两个变量

Question

我希望你能帮助我，我有一个表格，根据身高代表（成熟和未成熟）的百分比。我希望在附图中以图表的形式表示这些数据。 x 轴的大小和 y 的 %，谢谢。

数据

Size  %Immatures    %Matures      
  6  100.000000   0.000000 
  7  100.000000   0.000000 
  8  100.000000   0.000000 
  9  100.000000   0.000000 
  10  95.454545   4.545455 
  11  82.608696  17.391304 

我锁定的情节

Answer 1

采用长格式并使用新列作为 y 和填充。

library(tidyverse)
df <- read.table(text = "Size  %Immatures    %Matures      
6  100.000000   0.000000 
7  100.000000   0.000000 
8  100.000000   0.000000 
9  100.000000   0.000000 
10  95.454545   4.545455 
11  82.608696  17.391304", header = T)

df %>%
  pivot_longer(cols = contains("matures"), 
               names_to = "status", values_to = "values") %>%
ggplot(aes(Size, values, fill = status)) +
  geom_col()

^{由 reprex package (v1.0.0) 于 2021 年 3 月 9 日创建}