使用 desc() function 可视化最高频率条的问题

Question

我试图以一个接一个的顺序可视化 R 中的前 3 个或n 个条形。 我关注了关于堆栈溢出的问题，他做了我想要的完全一样的事情。 在我的数据集中，我没有y 轴值，因为desc() function 需要一个参数。 我不知道我应该在这个desc() function 中传递什么参数，它可以给我条形图的前 3 个或n 个条。

下面提到的是我的代码和df。 条形图的第一个代码有效，但不适用于前 3 个条形图。

    values_1
1   C123
2   B323
3   C123
4   R333
5   R334
6   N123
7   U322
8   C123
9   U322
10  R444

Bars<- ggplot(df)+geom_bar(aes(x=values_1), bandwidth=0.5)+
ylab("Frequency")+xlab("My Values")
plot(Bars)

前 3 条的代码

df %>% 
    arrange(desc()) %>%
    slice(1:3) %>%
    ggplot(aes(x=values_1))+
              geom_bar()

错误

Error in arrange()
dec() must be called with exactly one argument.

Answer 1

我们可能需要count

library(ggplot2)
library(dplyr)
df %>% 
   count(values_1, sort = TRUE) %>% 
   slice_head(n = 3) %>%
   mutate(values_1 = factor(values_1, levels = unique(values_1))) %>% 
   ggplot(aes(x = values_1, y = n)) +
    geom_col() + 
    ylab("Frequency")+
    xlab("My Values")

-输出

数据

df <- structure(list(values_1 = c("C123", "B323", "C123", "R333", "R334", 
"N123", "U322", "C123", "U322", "R444")), class = "data.frame",
 row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10"))