- 另一种 Select 是使用
forcats
个包中的fct_lump_min()
个将类别与"小"计数组合在一起.
- 另一个实用提示:如果您想使用
Category Value
作为名称,请使用InT <- as_data_frame
或tibble
,而不是InT <- data.frame
.因为data.frame
和as.data.frame
将名称更改为.
个单独的名称.如果它打算使用Category.Value
(这很好),那么您必须调整您的进一步代码.
- 另一个提示:如果您想使用
data.frame
,那么传递一个向量列表并加上check.names = FALSE
,那么变量名将保持为Category Value
.
以下是一些选项:
InT <- tibble(
Category = c(LETTERS, "AA", "AB"),
`Category Value` = c(172928, 1106269, 222102, 0, 1054448, 682990, 1975937, 779346, 12398, 0, 1450944, 368130, 2493154, 4347455, 1865752, 1443840, 692972, 61891, 6443758, 1539659, 1659183, 2711385, 856182, 1992250, 3722195, 2762090, 257023, 1204422)
)
InT
InT <- as_data_frame(list(
Category = c(LETTERS, "AA", "AB"),
`Category Value` = c(172928, 1106269, 222102, 0, 1054448, 682990, 1975937, 779346, 12398, 0, 1450944, 368130, 2493154, 4347455, 1865752, 1443840, 692972, 61891, 6443758, 1539659, 1659183, 2711385, 856182, 1992250, 3722195, 2762090, 257023, 1204422)
))
InT
InT <- data.frame(list(
Category = c(LETTERS, "AA", "AB"),
`Category Value` = c(172928, 1106269, 222102, 0, 1054448, 682990, 1975937, 779346, 12398, 0, 1450944, 368130, 2493154, 4347455, 1865752, 1443840, 692972, 61891, 6443758, 1539659, 1659183, 2711385, 856182, 1992250, 3722195, 2762090, 257023, 1204422)
), check.names = FALSE)
InT
平淡的情节:
library(plotly)
library(dplyr)
library(forcats)
InT %>%
mutate(Category = fct_lump_min(Category, min = 400000, w = `Category Value`)) %>%
summarise(`Category Value` = sum(`Category Value`), .by=Category) %>%
plot_ly(labels = ~Category, values = ~`Category Value`) %>%
add_pie(hole = 0.6) %>%
layout(title = "", showlegend = F,
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE))