Stem-and-leaf显示图形输出，在R中具有子集高亮显示

Question

我想强调R中词干显示的图形输出上给定集的子集，即：

library(fmsb)
xs <- c(rep(10,3), rep(20, 2), rep(30, 5))
gstem(xs)

xs_to_highlight <- c(10, 30)

10和30的亮点可以是彩色，下划线等。没有严格的要求。

Answer 1

一种可能性是使用背对背的茎和叶图，其中X在一侧突出显示，其余在另一侧突出显示。 aplpack包中的?stem.leaf.backback函数可以为您完成此操作。您真正需要做的就是编写一些代码来从其余部分中提取突出显示的值。考虑一下：

library(aplpack)
xs              <- c(rep(10,3), rep(20, 2), rep(30, 5))
xs_to_highlight <- c(10, 30)
other_xs        <- xs[-match(xs_to_highlight, xs)]
stem.leaf.backback(x=xs_to_highlight, y=other_xs, m=1)
# ____________________________
#   1 | 2: represents 12, leaf unit: 1 
# xs_to_highlight
#                 other_xs
# ____________________________
#   1       0| 1 |00     2   
#            | 2 |00    (2)  
#   1       0| 3 |0000   4   
# ____________________________
# n:        2     8      
# ____________________________