r - 直方图中的条数 - R
问题描述
我正在制作的直方图有两个问题:我正在尝试使用函数在 R 中生成直方图hist()
,用于数字(区间)变量的频率分布,范围从 0 到 10。米瞄准应该产生11个酒吧。然而:
问题 1:我的好朋友 R 一直在绘制 10 个柱。问题 2:此外,我不知道如何以正确的方式绘制“x”刻度值:在每个条形下方,“x”中的类别值(即从 0 到 10)。我尝试过使用axis()
,正如您在我的代码中看到的那样,但我不知道如何设置它。
我很确定这是非常基本的东西,但是我找不到这两个问题的解决方案。要解决第一个,我以为设置breaks=11
会解决它,但它不起作用。我不知道如何解决第二个问题。
这是我的数据(一项研究中有 128 名参与者,每人得分在 0 到 10 之间):
structure(list(ID_Esc_Def = c(915151L, 91494L, 1303553L, 1310117L,
1305411L, 1312263L, 1310121L, 1312264L, 1306498L, 1305413L, 1306497L,
1307521L, 1305409L, 1307523L, 1306491L, 1311366L, 1307532L, 915155L,
917111L, 915152L, 917120L, 1312267L, 1310119L, 1310114L, 1305414L,
1305412L, 1306494L, 1303559L, 1307526L, 917112L, 91496L, 1305410L,
1307527L, 917113L, 1307529L, 91491L, 1306495L, 1311363L, 1306493L,
1312260L, 1306496L, 91493L, 1303561L, 915153L, 1310118L, 1307530L,
1303557L, 1310113L, 1303556L, 1312259L, 1312258L, 91498L, 1311361L,
1311367L, 1311365L, 1306499L, 1312262L, 915149L, 915148L, 91492L,
1310120L, 1308168L, 1312266L, 1308167L, 1306492L, 1307531L, 1305408L,
1307514L, 1310116L, 1310112L, 1306490L, 1307525L, 1310115L, 1308174L,
1311368L, 915157L, 1312261L, 1308169L, 1312265L, 91495L, 1311360L,
1305417L, 91489L, 915154L, 1303555L, 91497L, 917118L, 131389L,
521390L, 521389L, 915150L, 131386L, 1305415L, 1311362L, 521386L,
131382L, 91490L, 521391L, 1305416L, 1303562L, 1311369L, 917116L,
521388L, 917114L, 1303558L, 521396L, 521387L, 1308172L, 131388L,
521395L, 131390L, 131384L, 917117L, 1311364L, 131387L, 1308173L,
917119L, 131385L, 917115L, 915156L, 521393L, 1308171L, 1308170L,
1303560L, 521392L, 131391L, 131383L, 1303554L), asig_dic = c(0L,
10L, 2L, 4L, 5L, 6L, 5L, 1L, 5L, 10L, 4L, 3L, 4L, 5L, 7L, 6L,
5L, 4L, 3L, 2L, 4L, 6L, 1L, 3L, 5L, 5L, 3L, 3L, 7L, 0L, 3L, 5L,
2L, 2L, 4L, 3L, 2L, 5L, 5L, 7L, 5L, 6L, 0L, 5L, 10L, 6L, 3L,
5L, 5L, 6L, 10L, 5L, 5L, 8L, 10L, 5L, 2L, 5L, 4L, 3L, 1L, 2L,
5L, 4L, 5L, 7L, 5L, 3L, 5L, 5L, 7L, 7L, 1L, 1L, 2L, 5L, 0L, 3L,
5L, 3L, 5L, 10L, 4L, 0L, 1L, 5L, 5L, 5L, 5L, 5L, 6L, 10L, 4L,
6L, 1L, 9L, 4L, 4L, 5L, 5L, 6L, 5L, 1L, 5L, 1L, 2L, 2L, 0L, 5L,
5L, 6L, 6L, 5L, 3L, 5L, 3L, 3L, 5L, 5L, 6L, 4L, 2L, 2L, 0L, 4L,
6L, 5L, 5L)), class = "data.frame", row.names = c(NA, -128L))
这是我用来生成直方图的代码:
m<-mean(dictator$asig_dic)
std<-sqrt(var(dictator$asig_dic))
quartz()
par(mfrow=c(1,1))
par(las=1)
hist(dictator$asig_dic, breaks = 11, col = "grey", freq = F, ylim=c(0,0.4), xaxt="n",
xlab="Generosity (Donated Tokens in DG)", ylab="Relative Frequency", main="")
curve(dnorm(x, mean=m, sd=std),
col="darkblue", lwd=2, add=TRUE, yaxt="n")
axis(1, at = seq(0, 10, by = 1), las=1)
如您所见,有 10 个条形图。有什么帮助吗?
一切顺利,
毛里西奥。
解决方案
一种解决方案是喝ggplot2
Kool Aid。如您所见,有 11 个箱(根据要求),标签位于条的中心。
library(ggplot2)
library(ggthemes)
ggplot(dictator) +
geom_histogram(aes(x = asig_dic, y = (..count..)/sum(..count..)),
bins = 11, fill = "gray", colour = "black") +
stat_function(fun = dnorm,
args = list(mean = mean(dictator$asig_dic),
sd = sd(dictator$asig_dic)),
colour = "salmon", size = 1.25) +
theme_tufte() +
theme(axis.line = element_line(size = 1),
axis.text = element_text(size = 18),
axis.title = element_text(size = 20)) +
xlab("Generosity (Donated Tokens in DG)") +
ylab("Relative Frequency") +
scale_x_continuous(breaks = 0:10)
推荐阅读
- javafx - JavaFX 文本选择背景
- node.js - Mongoose 使用 $text search 查询错误的集合
- python - 如何使用 BeautifulSoup 获取 Twitter 帖子(推文)的日期?
- node.js - 查看 node.js 中 res.render() 传入的参数
- python - 从 Python 中的字符串列中删除停用词
- ruby - 如何使用 Sorbet 为块编写类型签名?
- php - Laravel 从模型数据生成命名路由
- lamar - 为什么 Lamar 不会在 ASP.NET Core 中注入 IServiceScopeFactory 类型?
- php - 如何使用 PDO mysql 连接修复 PHP 中的“bind_param()”错误
- tensorflow - 将 tf.dataset 写回 TFRecord