1

我尝试了以下。为什么我仍然收到forcats警告？

#1我执行

plotdata <- dplyr::filter(Marriage, FALSE) %>% count(officialTitle)

  if (nrow(plotdata) > 0){
    str <- paste("nrows > 0. Number of rows is ", nrow(plotdata))
    print(str)
    print(plotdata)

但我得到以下信息：

[1] "nrows > 0. Number of rows is  1"
# A tibble: 1 x 2
  officialTitle     n
  <fct>         <int>
1 NA                0
Warning message:
Factor `officialTitle` contains implicit NA, consider using `forcats::fct_explicit_na`

#2 我注意到警告并执行以下操作

plotdata <- dplyr::filter(Marriage, FALSE) %>% count(officialTitle)
plotdata$officialTitle <- fct_explicit_na(plotdata$officialTitle)

  if (nrow(plotdata) > 0){
    str <- paste("nrows > 0. Number of rows is ", nrow(plotdata))
    print(str)
    print(plotdata)

这是结果：

[1] "nrows > 0. Number of rows is  1"
# A tibble: 1 x 2
  officialTitle     n
  <fct>         <int>
1 (Missing)         0
Warning message:
Factor `officialTitle` contains implicit NA, consider using `forcats::fct_explicit_na`

#3那我想也许这与forcats. 我删除forcats语句并从 plotdata 中删除 na，即

plotdata <- dplyr::filter(Marriage, FALSE) %>% count(officialTitle)
plotdata <- na.omit(plotdata)

  if (nrow(plotdata) > 0){
    str <- paste("nrows > 0. Number of rows is ", nrow(plotdata))
    print(str)
    print(plotdata)

输出如下：

[1] "nrows < 0. Number of rows is  0"
# A tibble: 0 x 2
# ... with 2 variables: officialTitle <fct>, n <int>
Warning message:
Factor `officialTitle` contains implicit NA, consider using `forcats::fct_explicit_na`

完整代码：

# Load packages ----
library(shiny)
library(ggplot2)
library(dplyr)
library(scales)
library(treemapify)
library(forcats)

# Load data ----
data(Marriage, package="mosaicData")

plotdata <- dplyr::filter(Marriage, FALSE) %>% count(officialTitle)
#plotdata$officialTitle <- fct_explicit_na(plotdata$officialTitle)
plotdata <- na.omit(plotdata)

  if (nrow(plotdata) > 0){
    str <- paste("nrows > 0. Number of rows is ", nrow(plotdata))
    print(str)
    print(plotdata)
    ggplot(plotdata, 
           aes(fill = officialTitle, 
               area = n,
               label = officialTitle)) +
      geom_treemap() + 
      geom_treemap_text(colour = "white", 
                        place = "centre") +
      labs(title = "Marriages by officiate") +
      theme(legend.position = "none")
  } else {
    str <- paste("nrows < 0. Number of rows is ", nrow(plotdata))
    print(str)
    print(plotdata)
  }
4

1 回答 1

2

错误消息不是由forcats. 在你的情况下，它是由count一个空的df造成的。尝试这个：

# Empty dataframe
df <- data.frame(x = factor(integer(0))) 

# Count empty column
dplyr::count(df, x)
#> Warning: Factor `x` contains implicit NA, consider using
#> `forcats::fct_explicit_na`
#> # A tibble: 1 x 2
#>   x         n
#>   <fct> <int>
#> 1 <NA>      0

# To avoid the warning use .drop = FALSE which also results in an empty df

dplyr::count(df, x, .drop = FALSE)
#> # A tibble: 0 x 2
#> # ... with 2 variables: x <fct>, n <int>

由reprex 包（v0.3.0）于 2020-04-14 创建

使用Marriage数据集：

# Load data ----
library(dplyr)

data(Marriage, package="mosaicData")

dplyr::filter(Marriage, FALSE) %>% count(officialTitle)
#> Warning: Factor `officialTitle` contains implicit NA, consider using
#> `forcats::fct_explicit_na`
#> # A tibble: 1 x 2
#>   officialTitle     n
#>   <fct>         <int>
#> 1 <NA>              0

dplyr::filter(Marriage, FALSE) %>% count(officialTitle, .drop = FALSE)
#> # A tibble: 9 x 2
#>   officialTitle           n
#>   <fct>               <int>
#> 1 "BISHOP"                0
#> 2 "CATHOLIC PRIEST"       0
#> 3 "CHIEF CLERK"           0
#> 4 "CIRCUIT JUDGE "        0
#> 5 "ELDER"                 0
#> 6 "MARRIAGE OFFICIAL"     0
#> 7 "MINISTER"              0
#> 8 "PASTOR"                0
#> 9 "REVEREND"              0

由reprex 包（v0.3.0）于 2020-04-14 创建

于 2020-04-14T19:30:53.377 回答