R : min and max numeric value with name

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)