R 使用ggplot绘制子集数据

R 使用ggplot绘制子集数据,r,ggplot2,R,Ggplot2,我试图只绘制子集数据,但是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

我试图只绘制子集数据,但是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
sub1分位数(点,概率=1-5/100))
ggplot(子1,aes(x=名称,y=点))+
几何点()
积分俱乐部
AJ 150 rfhg
DF 300 FDF
右400 ffggffg
EW 100 gfhgfh
QA 230 kujkj
射频220 gnhgfgf

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

使用您的数据很难操作,因此这里有一个来自基本数据集
空气质量
的示例:

library(dplyr)

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

据我所知,你也遇到了同样的问题——第7个月没有数据,但它仍然存在于x轴上。只要
ggplot
了解到它是一个
因子
,它就会被自动删除。例如:

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()

我无法重现该问题。请输入您的问题,并添加
dput(sub1)
(或
dput(head(sub1))
(如果是longish)。谢谢。你对下面的答案做得怎么样了,RedeyUser?