所以我试图做一个堆积条形图。这是所有需要在情节中的数据。我想让a-e在f-j旁边。我也试图让y轴合理。出于某种原因,它将数字而不是限制。我可能完全错了。我已经欺骗了R中的堆积条形图
data<- rbind(c(4655, 4212, 3838, 3583, 3124, 3078, 1411, 2589, 2524, 2429),
c(2826, 2589, 2557, 2713, 2497, 1, 2, 66, 1757, 1822))
a <- cbind(data[, 1], 1, c("50-60", "40-49"))
b <- cbind(data[, 2], 2, c("50-60", "40-49"))
c <- cbind(data[, 3], 3, c("50-60", "40-49"))
d <- cbind(data[, 4], 4, c("50-60", "40-49"))
e <- cbind(data[, 5], 5, c("50-60", "40-49"))
f <- cbind(data[, 6], 1, c("50-60", "40-49"))
g <- cbind(data[, 7], 2, c("50-60", "40-49"))
h <- cbind(data[, 8], 3, c("50-60", "40-49"))
i <- cbind(data[, 9], 4, c("50-60", "40-49"))
j <- cbind(data[, 10], 5, c("50-60", "40-49"))
data <- as.data.frame(rbind(a, b, c, d, e, f, g, h, i, j))
colnames(data) <-c("Number", "Year", "Age")
data$Year <- factor(data$Year, labels = c("FY13",
"FY14","FY15","FY16","FY17"))
library(ggplot2)
ggplot(data = data, aes(x = data$Year, y = Number, fill = Age)) +
geom_bar(stat = "identity")
我可能是完全错误的。我看了看,但看不到其他东西来帮助我。
我想说的数字是你的例子中的一个因素,你需要将它转换为数字'数据$数字< - as.numeric(数据$数字)'...检查答案@JanLauGe看看是否这是你需要的... – Umberto