我的senerio的R组条形图

我在5年内收集了1000份分类数据，我可以证明

senerio <- as.integer(runif(1000, min = 1, max = (4+1)))           

这就是我想要的组图的样子

---

使用ggplot是可能的解决方案。不过，首先，您需要在数据中声明年份。下面是一个详细的示例，演示如何手动创建数据框和创建年份列，以及一个快速ggplot示例。我不能百分之百确定你的预期产量。然而，这是一个常见的问题，所以这应该为您探索类似问题提供一个开始

library(tidyverse)

senerio <- as.integer(runif(1000, min = 1, max = (4+1)))
senerio <- data.frame(senerio)
colnames(senerio) <- "value"
senerio$value <- as.factor(senerio$value)

senerio$years <- 0
senerio$years[1:181] <- 1 
senerio$years[182:392] <- 2
senerio$years[393:597] <- 3
senerio$years[598:782] <- 4
senerio$years[783:1000] <- 5


ggplot(senerio,aes(years,fill=value)) + geom_bar(position=position_dodge())

库（tidyverse）
senerio使用ggplot2：
`

库（ggplot2）
dat1
library(tidyverse)

senerio <- as.integer(runif(1000, min = 1, max = (4+1)))
senerio <- data.frame(senerio)
colnames(senerio) <- "value"
senerio$value <- as.factor(senerio$value)

senerio$years <- 0
senerio$years[1:181] <- 1 
senerio$years[182:392] <- 2
senerio$years[393:597] <- 3
senerio$years[598:782] <- 4
senerio$years[783:1000] <- 5


ggplot(senerio,aes(years,fill=value)) + geom_bar(position=position_dodge())

library(ggplot2)
dat1 <- data.frame(
  gender = factor(c("Female","Female","Male","Male")),
  time = factor(c("Lunch","Dinner","Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(13.53, 16.81, 16.24, 17.42)
)

ggplot(data=dat1, aes(x=time, y=total_bill, fill=sex)) +
  geom_bar(stat="identity", position=position_dodge())