r - 如何使用基础 R 创建堆叠直方图?
问题描述
我已经研究过类似的问题,但没有运气。这是一个示例数据集,但我只使用性别和体重变量。
structure(list(Name = c("A Lamusi", "Juhamatti Tapio Aaltonen",
"Andreea Aanei", "Jamale (Djamel-) Aarrass (Ahrass-)", "Nstor Abad Sanjun"
), Sex = c("M", "M", "F", "M", "M"), Age = c(23L, 28L, 22L, 30L,
23L), Height = c(170L, 184L, 170L, 187L, 167L), Weight = c(60,
85, 125, 76, 64), Team = c("China", "Finland", "Romania", "France",
"Spain"), NOC = c("CHN", "FIN", "ROU", "FRA", "ESP"), Games = c("2012 Summer",
"2014 Winter", "2016 Summer", "2012 Summer", "2016 Summer"),
Year = c(2012L, 2014L, 2016L, 2012L, 2016L), Season = c("Summer",
"Winter", "Summer", "Summer", "Summer"), City = c("London",
"Sochi", "Rio de Janeiro", "London", "Rio de Janeiro"), Sport = c("Judo",
"Ice Hockey", "Weightlifting", "Athletics", "Gymnastics"),
Event = c("Judo Men's Extra-Lightweight", "Ice Hockey Men's Ice Hockey",
"Weightlifting Women's Super-Heavyweight", "Athletics Men's 1,500 metres",
"Gymnastics Men's Individual All-Around"), Medal = c(NA,
"Bronze", NA, NA, NA), Num_Sports = c("Judo", "Ice Hockey",
"Weightlifting", "Athletics", "Gymnastics")), row.names = c("1",
"2", "3", "4", "5"), class = "data.frame")
我需要创建一个显示男性和女性体重计数的条形图。我为此使用了 ggplot 并创建了一个堆叠直方图:
ggplot 的代码很简单:
ggplot(data = data, aes(x = Weight, fill = Sex)) +
geom_histogram(binwidth = 10, position="stack")
但是,我不知道如何使用基础 R 创建一个类似的图。我尝试创建一个包含重量和性别的表格,然后绘制图表,这是来自此链接的解决方案:使用 R 基础图形的堆叠直方图
tab <- table(data$Sex,data$Weight)
barplot(tab)
但是它返回了一个带有太多条形的图表,因为权重是一个连续变量: 图表有太多条形
我也试过hist(tab)
and hist(data$Weight)
,这显然也不正确。
如何使用基础 R 重新创建图形?谢谢!
解决方案
您的示例数据中没有足够的观察结果,所以我将使用rnorm
:
x <- rnorm(100, 10, 1)
y <- rnorm(100, 12, 1)
使用plot
堆叠您的直方图:
h1 <- hist(x, breaks = 10)
h2 <- hist(y, breaks = 10)
par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)
plot(h1, col = "Red", xlim = c(6, 16), xlab = "Weight", main = NULL)
plot(h2, col = "Blue", xlim = c(6, 16), add = T)
legend(17, 19,c("f", "m"), fill = c("Red", "Blue"), title = "Sex")
推荐阅读
- python - 点击开始前电报聊天窗口中的机器人信息
- python - Django Docker:django.db.utils.OperationalError:无法将主机名“db”转换为地址:名称或服务未知
- plotly - Plotly Express:如何在数据标签上添加数千个逗号分隔符
- c++ - 我应该如何以相反的顺序循环 C++ 容器的元素?
- java - 预订系统 JavaCode Eclipse
- c - 在这个以整数作为参数的函数(在 C 中)中:为什么每次调用函数时 sum = 0 不?
- python - 尝试使用 buildozer 构建 apk 时出错
- swift - 使 UIFont 黑色/沉重和斜体
- json - 如何向 json 格式添加新值
- django - TypeError: SET_NULL() 缺少 4 个必需的位置参数:“collector”、“field”、“sub_objs”和“using”