使用ggplot绘制子集数据

Question

我试图仅绘制子集数据，但是X轴上的所有条目都出现了。排名前5％的得分手：

子集：

sub1 <- subset(dataset, points > quantile(points, prob = 1 - 5/100)) 

ggplot(sub1,aes(x=name, y=points)) +
geom_point()

name        points   club
AJ          150      rfhg
DF          300      fdfdf
RH          400      ffggffg
EW          100      gfhgfh
QA          230      kujkj
RF          220      gnhgfgf

原始数据集中还有其他矢量-我应该删除这些矢量吗？

Answer 1

很难处理您的数据，因此这是来自基础数据集airquality的示例：

library(dplyr)

airquality %>% 
  filter(Temp > quantile(Temp, prob = 1 - 5/100)) %>% 
  ggplot(aes(x = Month, y = Temp)) +
  geom_point()

据我了解，您遇到了同样的问题-第7个月没有数据，但它仍然存在于x轴上。一旦ggplot知道它是factor，它将被自动删除。例如：

airquality %>% 
  mutate(Month = as.factor(Month)) %>%  # transform from integer to factor
  filter(Temp > quantile(Temp, prob = 1 - 5/100)) %>% 
  ggplot(aes(x = Month, y = Temp)) +
  geom_point()