r - 无法解决“警告:因素 `officialTitle` 包含隐式 NA,考虑使用 `forcats::fct_explicit_na`”
问题描述
我尝试了以下。为什么我仍然收到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)
}
解决方案
错误消息不是由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 创建
推荐阅读
- mysql - mysql group by 从总和中删除结果
- javascript - “为什么”JavaScript 提升“let”和“const”变量并将它们保持在临时区域中?那么这种行为有什么好处呢?
- laravel - 如何在 Laravel Query Builder 中批量更新(编辑)?
- android - 如何从我的设计文件中获取我的组件以在我的 Kotlin 代码中工作?
- javascript - 登录成功后如何重定向到仪表板页面
- javascript - 如果请求成功,则获取 post 请求不记录成功
- reactjs - ReactJS 表单 - 如何从用户离开的地方继续编辑表单
- c - C中的字符串标记化
- reactjs - 无法使用 cloudinary 更新个人资料图片
- spring-webflux - 在 Spring WebFlux 中安排任务以更新数据库中的记录