R中ggplot2的不同类别直方图

Question

这是我的代码：

set.seed(0)
practice<-matrix(c(c("class1","class2","class3","class4","class5","class6"),sample(1:100,30)),ncol=6)
colnames(practice)<-c("classes","Strongly_Agree","Somewhat_Agree","Somewhat_Disagree",
        "Strongly_Disagree","No_Idea")
data<-as.data.frame(practice)
require(ggplot2)
require(reshape2)
new_data<-melt(data,id.vars=c("classes"))
graph<-ggplot(new_data,aes(x = variable, y=..density..,fill=variable)) 
graph<-graph+facet_wrap(~classes,scales = "free_y")
graph+geom_histogram()

一切看起来都不错，除了我想知道为什么直方图具有相同的长度。我要的是显示这六个类中持不同意见的学生的百分比（x轴：非常同意，有点同意....，y轴：不同人群的百分比）。我还需要为代码添加什么？规模？

非常感谢！

Answer 1

这与问题无关，但很高兴知道：矩阵和向量只能有一种类型的值。您尝试使用字符和数字创建样本矩阵。我会尝试按照您的步骤进行操作，但请在此处更正一两个：

set.seed(0)
# lets create values only (we will add names later in a data frame)
practice <- matrix(sample(1:100, 30), ncol = 5)
data <- as.data.frame(practice)
data <- cbind( classes = sprintf("class%d", 1:6), data)
names(data) <- c("classes", "Strongly_Agree", "Somewhat_Agree", "Somewhat_Disagree", "Strongly_Disagree","No_Idea")

现在您可以计算百分比（每行除以行总和；[-1] 在这里省略第一列 - 类不包含数字）：

data[,-1] <- data[,-1] / rowSums(data[,-1])

这里我什么都没改：

require(reshape2)
new_data <- melt(data, id.vars = c("classes"))

在 ggplot 部分，您可以使用 new_data 和普通 geom_bar 中的 value 列（因为我们已经计算了值）：

require(ggplot2)

graph <- ggplot(new_data, aes(x = variable, y = value, fill = variable)) 
graph <- graph + facet_wrap(~classes, scales = "free_y")
graph + geom_bar(stat = "identity")

R中ggplot2的不同类别直方图

Different category histograms with ggplot2 in R

r

ggplot2

reshape2