Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/heroku/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
有没有办法强迫R把小数点放在茎叶图的管道上?_R - Fatal编程技术网

有没有办法强迫R把小数点放在茎叶图的管道上?

有没有办法强迫R把小数点放在茎叶图的管道上?,r,R,假设数据为: y=rpois(100,50) z=rpois(50,500) x=rpois(5,1000) v=c(y,z,x) 当我执行stem(v)时,它将小数点放在|的右边两位。我尝试过使用比例和宽度,但似乎无法强制小数点位于|。有办法做到这一点吗?如果是,怎么做?这里有一个黑客。它的工作原理是:(1)捕获stem的输出,(2)将十进制两位数放在|的右侧,(3)将行写回控制台 stem_with_dot <- function(x, ...){ h = capture.ou

假设数据为:

y=rpois(100,50)
z=rpois(50,500)
x=rpois(5,1000)
v=c(y,z,x)

当我执行
stem(v)
时,它将小数点放在|的右边两位。我尝试过使用
比例
宽度
,但似乎无法强制小数点位于|。有办法做到这一点吗?如果是,怎么做?

这里有一个黑客。它的工作原理是:(1)捕获
stem
的输出,(2)将十进制两位数放在
|
的右侧,(3)将行写回控制台

stem_with_dot <- function(x, ...){
   h = capture.output(stem(x, ...))
   stem_plot = sub("\\| ([0-9]{2})", "| \\1.", h)
   writeLines(stem_plot)
   return(invisible)
}

stem_with_dot不,因为您的数据在31到1021之间(对于我的随机数)。stem的想法是尝试显示尽可能多的数据点。如果小数点在横条上,那么横条的右边不会留下任何东西,因为你有整数

stem(v/100)

照你说的做,但我不确定这是你想要的…

对不起,我是说右边的;在任何情况下,
stem(v/10)
都会返回我想要的结果。