Question

我有一个从计数中获得的以下数据帧。我已经使用dput使数据框可用，然后编辑了该数据框，因此存在A的副本。

df <- structure(list(Procedure = structure(c(4L, 1L, 2L, 3L), .Label = c("A", "A", "C", "D", "-1"), 
                                         class = "factor"), n = c(10717L, 4412L, 2058L, 1480L)), 
              class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L), .Names = c("Procedure", "n"))

print(df)

# A tibble: 4 x 2
  Procedure     n
  <fct>     <int>
1 D         10717
2 A          4412
3 A          2058
4 C          1480

现在，我想对Procedure进行区分，只保留第一个A。

df %>% 
  distinct(Procedure, .keep_all=TRUE)

# A tibble: 4 x 2
  Procedure     n
  <fct>     <int>
1 D         10717
2 A          4412
3 A          2058
4 C          1480

它不起作用。奇怪...

Answer 1

如果我们打印Procedure列，我们可以看到a有重复的级别，这对于distinct函数是有问题的。

df$Procedure
[1] D A A C
Levels: A A C D -1
Warning message:
In print.factor(x) : duplicated level [2] in factor

一种解决方法是降低因子水平。我们可以使用factor函数来实现这一点。另一种方法是将Procedure列转换为字符。

df <- structure(list(Procedure = structure(c(4L, 1L, 2L, 3L), .Label = c("A", "A", "C", "D", "-1"), 
                                           class = "factor"), n = c(10717L, 4412L, 2058L, 1480L)), 
                class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L), .Names = c("Procedure", "n"))


library(tidyverse)

df %>% 
  mutate(Procedure = factor(Procedure)) %>%
  distinct(Procedure, .keep_all=TRUE)
# # A tibble: 3 x 2
#   Procedure     n
#   <fct>     <int>
# 1 D         10717
# 2 A          4412
# 3 C          1480

Answer 2

您在标签参数.Label = c（“ A”，“ A”，“ C”，“ D”，“ -1”）中重复了值。那是个问题。顺便说一下，您初始化小动作的方式似乎很奇怪（我仍然不完全知道您的目标，但仍然如此）

为什么不使用


df <- tibble(
    Procedure = c("D", "A", "A", "C"),
    n = c(10717L, 4412L, 2058L, 1480L)
)

在dplyr中无法使用（有时）

2 个答案: