R 如何为系列分布绘制一个三层条形图？

我有一系列的数据

x<-rnorm(1000)

x

这是一个水平图（我不会称之为“堆叠条形图”


这是一个水平图（我不会称之为“堆叠条形图”

下面是一个成功的例子：

x1 <- table(cut(x, breaks = quantile(x, probs = c(0,0.15, 0.85, 1))))

png(filename="~/test.png", width = 8, height = 2.5, units="in", res = 72)
barplot(
  as.matrix(x1), horiz = TRUE, 
  col = c("lightblue", "yellow", "palegreen"),
  axes = FALSE)
axis(1, at = c(0, cumsum(x1)), labels = c(0, 15, 85, 100))
dev.off()

x1以下是一个有效的示例：

x1 <- table(cut(x, breaks = quantile(x, probs = c(0,0.15, 0.85, 1))))

png(filename="~/test.png", width = 8, height = 2.5, units="in", res = 72)
barplot(
  as.matrix(x1), horiz = TRUE, 
  col = c("lightblue", "yellow", "palegreen"),
  axes = FALSE)
axis(1, at = c(0, cumsum(x1)), labels = c(0, 15, 85, 100))
dev.off()

x1@AnandaMahto，如何控制其宽度？
as.matrix
调用不起任何作用。列联表是矩阵。@user15662:如果您想要直方图，即面积代表计数的绘图，您应该使用直方图函数之一。您要求使用条形图，所以我给了您一个。或者您不想要条形图？@DWin i需要AnandaMahto建议的堆叠条形图，但我需要控制它的宽度。定义我不认为是“堆叠条形图”的东西的宽度。它是垂直维度还是水平维度？@AnandaMahto，如何控制它的宽度？
as.matrix
调用不起任何作用。列联表是矩阵。@user15662:如果你想要直方图，即面积代表计数的图，你应该使用直方图函数之一。你要的是条形图，所以我给了你一个。或者m也许你不想要条形图？@DWin我需要阿南达马托建议的堆叠条形图，但我需要控制它的宽度。请定义我不认为是“堆叠条形图”的东西的宽度的含义.这是垂直还是水平维度？我再说一遍。R中的列联表是一个矩阵。感谢您的快速回复。我正在使用25、50和25绘制其他分布图，但我收到以下错误消息。剪切中出错。默认值（x，breaks=分位数（x，probs=c（0,0.25,0.75，：“中断”不是唯一的。我不知道您显示的错误。请验证。您可能希望从头开始，看看错误是否仍然存在。对。因为如果您只运行
分位数（x，probs=c（0,25,75,1））
，您将看到1位于第25和第75百分位。@user15662，我看不到。抱歉！我再说一遍。R中的列联表是一个矩阵。感谢您的快速回复。我正在使用25、50和25绘制其他分布，但我收到以下错误消息。剪切中出错。默认值（x，breaks=分位数（x，probs=c（0,0.25,0.75，：“breaks”不是唯一的。我不知道您显示的错误。请验证。您可能想从头开始，看看错误是否仍然存在。对。因为如果您只运行
分位数（x，probs=c（0,25,75,1））
，您将看到1位于第25和第75百分位。@user15662，我看不到。抱歉！
x1 <- table(cut(x, breaks = quantile(x, probs = c(0,0.15, 0.85, 1))))

png(filename="~/test.png", width = 8, height = 2.5, units="in", res = 72)
barplot(
  as.matrix(x1), horiz = TRUE, 
  col = c("lightblue", "yellow", "palegreen"),
  axes = FALSE)
axis(1, at = c(0, cumsum(x1)), labels = c(0, 15, 85, 100))
dev.off()