如何在R中的数据框中找到列的最大值

   Ozone Solar.R Wind Temp Month Day
1     41     190  7.4   67     5   1
2     36     118  8.0   72     5   2
3     12     149 12.6   74     5   3
4     18     313 11.5   62     5   4
5     NA      NA 14.3   56     5   5
6     28      NA 14.9   66     5   6
7     23     299  8.6   65     5   7
8     19      99 13.8   59     5   8
9      8      19 20.1   61     5   9

max(ozone, na.rm=T)

max(subset(ozone,Ozone))

ozone <- subset(ozone, Ozone >0)
max(ozone,na.rm=T) 

colMax <- function(data) sapply(data, max, na.rm = TRUE)
colSort <- function(data, ...) sapply(data, sort, ...)

dat <- read.table(h=T, text = "Ozone Solar.R Wind Temp Month Day
1     41     190  7.4   67     5   1
2     36     118  8.0   72     5   2
3     12     149 12.6   74     5   3
4     18     313 11.5   62     5   4
5     NA      NA 14.3   56     5   5
6     28      NA 14.9   66     5   6
7     23     299  8.6   65     5   7
8     19      99 13.8   59     5   8
9      8      19 20.1   61     5   9")

colMax(dat)
#  Ozone Solar.R    Wind    Temp   Month     Day 
#   41.0   313.0    20.1    74.0     5.0     9.0

sort(dat$Solar.R, decreasing = TRUE)
# [1] 313 299 190 149 118  99  19

colSort(dat, decreasing = TRUE) ## compare with '...' above

R相关问答推荐

如何创建具有总计列和ggplot 2所有条线的百分比标签的堆叠条形图？

在ubuntu 22.04上更新到R4.4后包安装出现编译错误

通过绘图 Select 线串几何体并为其着色

将Multilinetring合并到一个线串中，使用sf生成规则间隔的点

无法运行通过R中的Auto.arima获得的ARIMA模型

如何使用rmarkdown和kableExtra删除包含折叠行的表的第一列的名称

为什么st_join(ob1，ob2，left = True)返回具有比ob1更多功能的sf对象？

R：更新后无法运行控制台

有没有一种方法可以从函数中创建一个值的列表，然后将这些值变成R中的直方图？我一直觉得不行

如何将dygraph调用到R Markdown作为一个shiny 的react 对象的参数？

R中边际效应包中Logistic回归的交互作用风险比

按多列统计频次

如何根据数据帧中的值从该数据帧中提取值？

是否有新方法来更改Facet_WRAP(Ggplot2)中条文本的文本 colored颜色 ？

我们如何在R中透视数据并在之后添加计算

在gggraph中显示来自不同数据帧的单个值

解析嵌套程度极高的地理数据

判断函数未加载R中的库

在使用SliderInput In Shiny(R)设置输入数据的子集时，保留一些情节痕迹

在鼠标悬停时使用Plotly更改geom_point大小