你写的功能是什么,不值得一个包,但你想分享?
我会投入一些我的:
destring <- function(x) {
## convert factor to strings
if (is.character(x)) {
as.numeric(x)
} else if (is.factor(x)) {
as.numeric(levels(x))[x]
} else if (is.numeric(x)) {
x
} else {
stop("could not convert to numeric")
}
}
pad0 <- function(x,mx=NULL,fill=0) {
## pad numeric vars to strings of specified size
lx <- nchar(as.character(x))
mx.calc <- max(lx,na.rm=TRUE)
if (!is.null(mx)) {
if (mx<mx.calc) {
stop("number of maxchar is too small")
}
} else {
mx <- mx.calc
}
px <- mx-lx
paste(sapply(px,function(x) …Run Code Online (Sandbox Code Playgroud) 我正在完成论文的图表并决定(在讨论stats.stackoverflow之后),为了传递尽可能多的信息,创建下面的图表,在前景中呈现手段和在后台原始数据:

然而,仍然存在一个问题,那就是过度绘图.例如,标记点看起来像是反映了一个数据点,但事实上在该位置存在5个具有相同值的数据点.
因此,我想知道是否有办法应对overplotting base graph使用points的功能.
如果相应的点变得更暗或更厚,或者......,那将是理想的.
手动做它不是一个选择(太多的图形和点这样).此外,ggplot2也不是我想学习处理这个单一问题的原因(一个原因是我倾向于喜欢双轴不支持的ggplot2).
更新:我写了一个函数,它自动创建上面的图形,并通过添加垂直或水平抖动(或两者)来避免过度绘制:检查出来!
此功能现已作为raw.means.plot与raw.means.plot2在plotrix封装(上CRAN).
我有两个变量,我想在直方图中比较,如下所示.对于直方图的每个区间,显示两个变量的频率,以便于比较它们.

我想在两组上显示倾向得分匹配统计数据(BW中无法比拟,颜色匹配),并希望使用像下面这样的镜像直方图

是否可以在基础R中叠加4个不同的直方图?有没有提供此功能的包?
x轴是[0,1]有界的(它是一个概率),BW列总是大于或等于彩色列(即彩色列后面不能有BW列).
我是R的新手(刚刚开始使用它),我试图在彼此之上绘制多个直方图.我看过一些帖子,谈论如何在彼此之上绘制两个直方图,但没有找到任何解释如何做多个的直方图.特别是对我的例子,5.
我有5个值,我想绘制堆积直方图.
a <- c(15.625,12.5,14,15.75,15.375,18.813)
cs <- c(15.875, 7.875, 6.625, 6, 6.5, 9, 7.375, 7.625, 6.875, 7.25, 7.5, 6.75, 6.75, 7.5, 6.75, 6.75, 10.25, 8.625, 8.875, 10.125, 11.75, 11, 16.5, 15.75, 14, 13, 12.5, 13.875, 13.5, 15.25, 17, 15.125, 15.75, 15.25, 13.625, 12.625, 11.375, 12.625, 11.875, 11.375, 16, 18.25, 20.25, 18.125, 22.5, 24.75, 27.5, 28.375, 31.125, 37.75, 32.75, 30.375, 31.875, 33.25, 34.625, 28.5, 28.875, 23.5, 24.625, 22.5, 18, 20.25, 24.875, 26.125, 30.25, 32.375, 36.5, 32.75, 35.25, 28.5, 29, 32.875, 34.5, …Run Code Online (Sandbox Code Playgroud) 我有一个包含四列的数据框,如下所示:
Beef-Low Beef-High Cereal-Low Cereal-High
90 73 107 98
76 102 95 74
90 118 97 56
64 104 80 111
86 81 98 95
51 107 74 88
72 100 74 82
90 87 67 77
95 117 89 86
78 111 58 92
Run Code Online (Sandbox Code Playgroud)
我想制作一个直方图,将所有四列显示为不同颜色的条形,所以我尝试了:
> hist(wt$Beef.Low, main="Weight Gain Across Four Diets", xlab="Weight Gain", col="coral", xlim=c(0,120), ylim=c(0,4))
> hist(wt$Beef.High, col="coral3", add=T)
> hist(wt$Cereal.Low, col="yellow", add=T)
> hist(wt$Cereal.High, col="yellow3", add=T)
Run Code Online (Sandbox Code Playgroud)
哪个产生:

我不喜欢条形的不透明性质,因为它们掩盖了重叠直方图的形状.我知道我可以使用这里找到的代码来手动策划直方图的颜色; 但这似乎是一个乏味的过程,我确信必须有一个更好的方法.
相反,我试图复制在这个问题中所做的事情
> …Run Code Online (Sandbox Code Playgroud) 可能重复:
如何在R中一起绘制两个直方图?
我想将两个直方图绘制在一起,它们都具有相同的x轴单位和y轴单位.两个直方图取自两个文件,inp1和inp2.我尝试了以下代码,但它无法正常工作:
x1<-hist(inp1, 120, plot = 0)
x2<-hist(inp2, 120, plot = 0)
hist(x1, x2, 240, plot = 1)
Run Code Online (Sandbox Code Playgroud)