旋转数据但保持数据在R中对齐?

也许您希望这样,您可以使用 melt as.factor 要按如下方式绘制堆叠条形图:

df <- read.table(text = "Age   Gene1   Gene2   Gene3 
33     0       1       1
57     1       0       1
90     1       1       1", header = TRUE)

library(dplyr)
library(ggplot2)
library(reshape)
df %>%
  melt(id.vars = "Age") %>%
  mutate(Age = as.factor(Age)) %>%
  ggplot(aes(x = Age, y = value, fill = variable)) +
  geom_col() +
  labs(fill = "gene", y = "count") +
  theme_bw()

^{于2022年7月26日由 reprex package}