Question

NAME                                        Number
cars                                         10
people                                       340
bus                                          4

我必须找到使用他的第一个库存的通讯名称来表示最低和最高数值的方法。

如果我输入命令：

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

结果只是值

最终结果应显示如下：

最小值*

巴士4
获取最大值*

people 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：带名称的最小和最大数值

1 个答案:

更新