我想知道如何为一个范畴变量和一个数值变量(数字数据就是比例)创建一个比例表？

Question

library(ggplot2)
library(tidyverse)
library(dplyr)
aqi <- read.csv("aqi12_21.csv")
aqi <- select(aqi,State.Name,county.Name,Date,AQI,Category,Defining.Parameter)
aqi <- rename(aqi,State=State.Name,County=county.Name)
aqi <- separate(aqi, Date, c("Year", "Month", "Day"))
AQI_HIGH<-filter(aqi,AQI>100)
average_aqi_state <- AQI_HIGH %>% group_by(State) %>% summarise(average_aqi = mean(AQI))

所以我有我的平均数据，看起来：

​

​

我不知道如何创建比例图(平均aqi以百分比表示)，而状态仍然是绝对变量

Answer 1

假设这种简化的数据形式表示实际数据：

dat <- structure(list(State = c("Alabama", "Alaska", "Arizona", "Others"
), average_aqi = c(300, 550, 150, 1000)), class = "data.frame", row.names = c(NA, 
-4L))

如果我正确理解了您的目的，您希望以这样的方式获得average_aqi的比例：

dat |> mutate(avaqi_perc = average_aqi/sum(average_aqi))

#    State average_aqi avaqi_perc
#1 Alabama         300      0.150
#2  Alaska         550      0.275
#3 Arizona         150      0.075
#4  Others        1000      0.500