R如何可视化此分类百分比数据？

Question

我有以下矩阵数据，各栏中按损失原因列出的3种保单形式：

test=as.data.frame(matrix(c(74,10,4,4,2,6,57,19,4,8,2,10,54,19,6,8,2,11),nrow=3,byrow=T))
names(test) <- c("Wind","Water","Fire","Theft","Liab","OtherPD")
row.names(test)  <- c("FormA","FormB","FormC")

数据如下所示：

      Wind Water Fire Theft Liab OtherPD
FormA   74    10    4     4    2       6
FormB   57    19    4     8    2      10
FormC   54    19    6     8    2      11

每行显示归因于表格的损失百分比。 例如，FormA中74％的损失是由于风的损失。 每行总计100。

问题： 除饼图外，请为每行建议一种可视化方法，例如：

pie(unlist(test[1,]),labels=c("Wind","Water","Fire","Theft","Liab","OtherPD"),main= "FormA")

关于百分比的评论是，尽管有些数字看起来很小，但它们对应的基础美元金额仍然很大且可信。 我想通过可视化传达的一个更重要的见解是，由于所有这些不同的风险，尤其是“较小”的风险，每种保单形式在损失方面如何相互比较，而不被FormA具有主导地位的事实所蒙蔽wind损比例。

Answer 1

我建议您重组数据。 ggplot有一些不错的图表。

#restructure data
library(reshape2)
data <- melt(test)
data$Form <- c("FormA","FormB","FormC")
#plot with ggplot2
library(ggplot2)
ggplot(data, aes(variable, value)) + geom_bar(stat="identity") + facet_wrap(~ Form)
ggplot(data, aes(variable, value)) + geom_point() + facet_wrap(~ Form)
ggplot(data, aes(variable, value,colour=Form, group=Form)) + geom_point()