基于 R 中的主题的两个评级图表 - 出了什么问题？

Question

我还是 R 的新手，并且有一个我正在尝试为我的课程完成的项目。 我希望创建一个图表，显示基于主题的平均患者评分与平均医院评分。

数据文件可以在我的 GitHub 存储库中找到： https://github.com/rachh8283/pt-satisfaction-r-tableau

df <- import("clean_file.xlsx")

### Average ratings by topic using SQL

    avg_ratings <- sqldf('SELECT Topic, AVG(PtRating) AS MeanPtRate, AVG(HospRating) AS MeanHospRate
          FROM df
          WHERE Ownership == "Proprietary"
          GROUP BY Topic')

### Remove missing values from dataset. 
I have also tried doing this for the avg_ratings object (data frame?), but that doesn't work either. 

    df <- na.omit(df)

### Here's where I'm getting errors. 
I'm trying to plot the two variables based on topic (another variable). 

    plot(avg_ratings$Topic, avg_ratings$MeanPtRate, main="Average Patient Rating vs Average Hospital Rating by Topic", type = "b", 
         pch=19, col = "red", xlab="Topic", ylab="Rating")
    lines(avg_ratings$Topic, avg_ratings$MeanHospRate, type = "b", pch=18, col = "blue", lty=1)
    legend("topright", legend=c("Patient Rating", "Hospital Rating"), col=c("red", "blue"), 
           lty=1, cex=0.8)

这是我得到的错误：

> plot(avg_ratings$Topic, avg_ratings$MeanPtRate, main="Average Patient Rating vs Average Hospital Rating by Topic", type = "b", 
+      pch=19, col = "red", xlab="Topic", ylab="Rating")
Error in plot.window(...) : need finite 'xlim' values
In addition: Warning messages:
1: In xy.coords(x, y, xlabel, ylabel, log) : NAs introduced by coercion
2: In min(x) : no non-missing arguments to min; returning Inf
3: In max(x) : no non-missing arguments to max; returning -Inf
> lines(avg_ratings$Topic, avg_ratings$MeanHospRate, type = "b", pch=18, col = "blue", lty=1)
Warning message:
In xy.coords(x, y) : NAs introduced by coercion
> legend("topright", legend=c("Patient Rating", "Hospital Rating"), col=c("red", "blue"), 
+        lty=1, cex=0.8)

在此先感谢您的帮助！

Answer 1

好的，这个答案需要一些编辑等待一些澄清。 我没有在下面使用sqldf function。 我也在使用ggplot2因为你在标签中有它：

library(tidyverse)
hospital_data <- readxl::read_xlsx("pt-satisfaction-r-tableau-main/clean_file.xlsx")
str(hospital_data) # Topic needs to be a factor

# Convert Topic to Factor:
hospital_data <- hospital_data %>% 
  mutate(Topic = forcats::as_factor(Topic))

# Summarise means
hospital_data_summarise <- hospital_data %>% 
  group_by(Topic) %>% 
  summarise(ave_pt_rating = mean(PtRating),
            ave_hosp_rating = mean(HospRating)) %>%
  ungroup()
hospital_data_summarise

# Going with geom point
ggplot(hospital_data_summarise, aes(x = Topic, y = ave_pt_rating)) +
  geom_point() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))

这大致是你所追求的吗？ 您可能需要调整第 2 行中的文件路径。