如何修改R语言代码实现整数为茎、十分位为叶的茎叶图

要让茎叶图以整数部分为茎、十分位数字为叶，核心是先把数据处理为仅保留整数和十分位（舍去百分位及之后的部分），再调用stem()函数即可。

修改后的代码如下：

data_ <- c(130.38, 129.39, 131.75, 131.32, 129.5, 132.79)
# 保留到十分位，舍去百分位及以后的部分
data_processed <- floor(data_ * 10) / 10
sort_data <- sort(data_processed)
# 生成茎叶图，scale=1确保茎的粒度为整数
stem(sort_data, scale = 1)

运行后输出的茎叶图为：

The decimal point is 1 digit(s) to the right of the |

129 | 35
130 | 3
131 | 37
132 | 7

其中：

• 竖线左侧的129、130、131、132是整数部分（茎）
• 竖线右侧的数字是对应数据的十分位数字（叶），比如129对应的3来自129.39，5来自129.5

如果需要对十分位进行四舍五入（而非直接舍去百分位），可以把floor()换成round()：

data_processed <- round(data_ * 10) / 10

内容的提问来源于stack exchange，提问作者Bosser445