R：带名称的最小和最大数值

Question

NAME                                        Number
cars                                         10
people                                       340
bus                                          4

我必须想办法用他在第一个库里的对应姓名来表示最小和最大数值。

如果我输入命令：

min(data[,2]) 
max(data[,2])

结果只是数值

最终结果应显示为：

最小值*

4 路公交车
最大值*

人 340

Answer 1

您可以使用

分别获取 min 和 max 行

df1[which.max(df1[,2]),]

或

df1[which.min(df1[,2]),]

为了绘图，可能是

df2 <- subset(df1, Number %in% c(min(Number), max(Number)))
m1 <- t(df2[,2])
colnames(m1) <- df2[,1]
barplot(m1)

更新

使用图中的示例，

dfN <- data.frame(Col1=c('Controlli di Polizia Giudiziaria', 
'Ricrosi a seguito di contravvenzioni', 
'Ordinanze e inguinzioni sul commercio', 'Automezzi', 
'Chilometri percorsi', 'Infrazioni al codice della strada'),
 number = c(249, 349, 152, 8, 41658 , 8597))

 colnames(m1) <- sub('(\S+\s\S+)\s(\S+\s\S+)(.*)', 
             '\1\n\2\n\3', dfN[,1])
 barplot(m1, cex.names=0.7)

R：带名称的最小和最大数值

R : min and max numeric value with name

r

max

min

更新