我對 R 很陌生，正在努力解決這個概念。我有一個如下所示的資料框： 在此處輸入影像描述
我習慣于summary(FoodFacilityInspections$DateRecent)獲取列出的每個“日期”的觀察結果。不過，我有 3932 個觀察結果，并希望得到以下摘要：
- 觀察次數最多的日期及其百分比
- 最近日期類別的觀察百分比
我試過了： *
> count(FoodFacilityInspections$DateRecent) Error in UseMethod("count")
> : no applicable method for 'count' applied to an object of class
> "factor"
uj5u.com熱心網友回復：
使用內置資料，因為您沒有提供示例資料
library(data.table)
dtcars <- data.table(mtcars, keep.rownames = TRUE)
解決方案
dtcars[, .("count"=.N, "percent"=.N/dtcars[, .N]*100),
by=cyl]
uj5u.com熱心網友回復：
您可以使用 table 函式找出哪個日期出現最多。然后您可以遍歷表中的每個專案（在您的情況下為日期）并將其除以這樣的總行數（也使用 mtcars 資料集）：
table(mtcars$cyl)
percent <- c()
for (i in 1:length(table(mtcars$cyl))){
percent[i] <- table(mtcars$cyl)[i]/nrow(mtcars) * 100
}
output <- cbind(table(mtcars$cyl), percent)
output
percent
4 11 34.375
6 7 21.875
8 14 43.750
uj5u.com熱心網友回復：
使用table和proportionsin的單行within。
within(as.data.frame.table(with(mtcars, table(cyl))), Pc <- proportions(Freq)*100)
# cyl Freq Pc
# 1 4 11 34.375
# 2 6 7 21.875
# 3 8 14 43.750
uj5u.com熱心網友回復：
基于您的資料的總計、百分比和累積百分比表的更新解決方案。
library(data.table)
data<-data.frame("ScoreRecent"=c(100,100,100,100,100,100,100,100,100),
"DateRecent"=c("7/23/2021", "7/8/2021","5/25/2021","5/19/2021","5/20/2021","5/13/2021","5/17/2021","5/18/2021","5/18/2021"),
"Facility_Type_Description"=c("Retail Food Stores", "Retail Food Stores","Food Service Establishment","Food Service Establishment","Food Service Establishment","Food Service Establishment","Food Service Establishment","Food Service Establishment","Food Service Establishment"),
"Premise_zip"=c(40207,40207,40207,40206,40207,40206,40207,40206,40206),
"Opening_Date"=c("6/27/1988","6/29/1988","10/20/2009","2/28/1989","10/20/2009","10/20/2009","10/20/2009","10/20/2009", "10/20/2009"))
tab <- function(dataset, var){
dataset %>%
group_by({{var}}) %>%
summarise(n=n()) %>%
mutate(total = cumsum(n),
percent = n / sum(n) * 100,
cumulativepercent = cumsum(n / sum(n) * 100))
}
tab(data, Facility_Type_Description)
Facility_Type_Description n total percent cumulativepercent
<chr> <int> <int> <dbl> <dbl>
1 Food Service Establishment 7 7 77.8 77.8
2 Retail Food Stores 2 9 22.2 100
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/372714.html