如何在R中按日期计算正值行数与当日总行数的占比？

嗨，这个需求很好解决，我给你两种常用的实现方式，你可以根据自己的代码习惯选择：

第一步：先导入你的数据 #

首先我们把你提供的示例数据读进R里，因为数据是用#分隔的，读的时候要指定分隔符，同时去掉多余的空格：

# 导入数据
df <- read.table(text = "Date # Value
20180514 # 3
20180514 # -1
20180514 # -1
20180513 # 2
20180513 # 5
20180513 # -1", 
                 sep = "#", header = TRUE, strip.white = TRUE)

# 查看数据结构（可选）
str(df)

这样得到的df就是标准数据框，如果需要把Date列转成日期类型，可以用df$Date <- as.Date(as.character(df$Date), "%Y%m%d")处理。

方法一：用dplyr（tidyverse生态）实现 #

这是最直观易读的方式，适合日常数据处理：

# 先加载dplyr包，没安装的话先运行 install.packages("dplyr")
library(dplyr)

result <- df %>%
  group_by(Date) %>% # 按日期分组
  summarize(
    total_rows = n(), # 可选：查看当日总行数
    positive_ratio = mean(Value > 0) # 计算正数值行数占比
  )

print(result)

小技巧解释 #

Value > 0会生成一个逻辑向量（TRUE/FALSE），在R里逻辑值会自动转成数值：TRUE=1，FALSE=0。对这个向量取均值，就相当于正数值的行数除以总行数，正好是我们要的比例。

方法二：用基础R实现 #

如果不想加载额外的包，用基础R的aggregate函数也能搞定：

result_base <- aggregate(
  list(positive_ratio = df$Value > 0),
  by = list(Date = df$Date),
  FUN = mean
)

# 可选：添加总行数列
result_base$total_rows <- aggregate(Value ~ Date, data = df, FUN = length)$Value

print(result_base)

示例输出 #

两种方法都会得到类似这样的结果：

# A tibble: 2 × 3
  Date    total_rows positive_ratio
  <chr>        <int>          <dbl>
1 20180513         3          0.667
2 20180514         3          0.333

这样你就得到了每个日期对应的正数值行数占比啦～

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