创建一个表，其中包含R中每行的频率和百分比

# 加载必要的库
library(dplyr)

# 假设data是你的数据框，category是你想要分析的列
data <- data.frame(category = c('A', 'B', 'A', 'C', 'B', 'A'))

# 计算频率
frequency_table <- table(data$category)

# 计算百分比
total_rows <- nrow(data)
percentages <- round((frequency_table / total_rows) * 100, 2)

# 将频率和百分比合并到一个数据框中
frequency_percentages <- data.frame(
  Category = names(frequency_table),
  Frequency = as.integer(frequency_table),
  Percentage = percentages
)

print(frequency_percentages)

  Category Frequency Percentage
1        A         3      50.00
2        B         2      33.33
3        C         1      16.67