Есть ли способ заставить R поместить десятичную дробь в трубу в ствол и листовую диаграмму?

Question

Давайте предположим, что данные:

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

Когда я делаю stem(v), он помещает десятичную дробь в два знака справа от |Я пытался использовать scale и width, но, похоже, не могу заставить десятичную дробь в |.Есть ли способ сделать это?Если да, то как?

Answer 1

Ну, нет, потому что ваши данные между 31 и 1021 (для моих случайных чисел).Идея ствола состоит в том, чтобы попытаться показать как можно больше ваших точек данных.Если бы десятичная дробь была в баре, то это ничего не оставило бы справа от бара, поскольку у вас есть целые числа ...

stem(v/100)

делает то, что вы говорите, но я неуверен, что вы хотите ...

Answer 2

Вот хак. Это работает путем (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)
}