r - 如何在 geom_point 点图中仅显示前 10 个类别和值？

Question

我想用点图排列订购最多的产品，按降序显示它们的订购时间。但由于产品有 134 种，所以点图被压扁了。所以我需要整理出图中的前10个产品，我如何编辑代码？

这是我的绘图数据:

head(product_count)

product                    order_times
frozen juice                    2
baby bath body care             7
Indian foods                    7
beauty                          8
bulk grains rice dried goods    8

代码:

library(scales)
theme_set(theme_classic())

ggplot(product_count,aes(x=product, y=order_times)) + 
   geom_point(col="tomato2", size=1) +   
   geom_segment(aes(x=product, 
               xend=product, 
               y=min(order_times),
               yend=max(order_times)), 
               linetype="dashed", 
               size=0.1) +  
labs(title="Dot Plot", 
     subtitle="Product Vs Order times") +  
coord_flip()

实际点图有 134 行，但我只想显示 10 行(前 10 行)

Answer 1

您可以使用 top_n 过滤前 10 个值，然后使用它在 ggplot 对象中绘图

library(dplyr)
library(ggplot2)

df %>% 
  top_n(10, order_times) %>% 
  ggplot() + aes(product, order_times) + geom_point() 

或者仅使用ggplot2

ggplot(df[tail(order(df$order_times), 10), ], ) + 
     aes(product, order_times) + geom_point()