How to fix the error: could not find function "plot_grid"?
How to fix the error: could not find function "plot_grid"?
我正在努力做到
Kaggle Project: Attrition in an Organization || Why Workers Quit?
当我 运行 部分代码使用 R ggplot 函数绘制多张图时 "cowplot",
library(ggplot2)
options(repr.plot.width=8, repr.plot.height=6)
options(warn=-1)
df <- read.csv("C:/Users/Abdo Taha/Documents/WA_Fn-UseC_-HR-Employee-Attrition.csv")
head(df)
original_df <- df
attritions_number <-
df %>% group_by(Attrition) %>% summarise(Count = n()) %>%
ggplot(aes(x = Attrition, y = Count)) + geom_bar(stat = "identity", fill =
"orange", color = "grey40") + theme_bw() + coord_flip() +
geom_text(
aes(x = Attrition, y = 0.01, label = Count),
hjust = -0.8,
vjust = -1,
size = 3,
colour = "black",
fontface = "bold",
angle = 360
) + labs(title = "Employee Attrition (Amount)", x = "Employee Attrition", y =
"Amount") + theme(plot.title = element_text(hjust = 0.5))
attrition_percentage <-
df %>% group_by(Attrition) %>% summarise(Count = n()) %>%
mutate(pct = round(prop.table(Count), 2) * 100) %>%
ggplot(aes(x = Attrition, y = pct)) + geom_bar(stat = "identity", fill = "dodgerblue", color =
"grey40") +
geom_text(
aes(
x = Attrition,
y = 0.01,
label = sprintf("%.2f%%", pct)
),
hjust = 0.5,
vjust = -3,
size = 4,
colour = "black",
fontface = "bold"
) + theme_bw() + labs(x = "Employee Attrition", y = "Percentage") +
labs(title = "Employee Attrition (%)") + theme(plot.title = element_text(hjust =
0.5))
plot_grid(plot.attritions_number,
plot.attrition_percentage,
align = "h",
ncol = 2)
我收到错误：
> plot_grid(plot.attritions_number,
+ plot.attrition_percentage,
+ align = "h",
+ ncol = 2)
Error in plot_grid(plot.attritions_number, plot.attrition_percentage, :
could not find function "plot_grid"
我用谷歌搜索了这个错误，但没有找到解决方案。
我要的是那个图表：
你们中有人可以帮忙吗？
运行 你的代码，我能够毫无问题地重现你的两个图（使用相同的数据集）。也尝试修改 plot_grid 中的对象，因为在任何一种情况下都不需要使用 plot.
plot_grid(attritions_number,
attrition_percentage,
align = "h",
ncol = 2)
还要仔细检查以确保 cowplot 已成功安装。
我正在努力做到 Kaggle Project: Attrition in an Organization || Why Workers Quit?
当我 运行 部分代码使用 R ggplot 函数绘制多张图时 "cowplot",
library(ggplot2)
options(repr.plot.width=8, repr.plot.height=6)
options(warn=-1)
df <- read.csv("C:/Users/Abdo Taha/Documents/WA_Fn-UseC_-HR-Employee-Attrition.csv")
head(df)
original_df <- df
attritions_number <-
df %>% group_by(Attrition) %>% summarise(Count = n()) %>%
ggplot(aes(x = Attrition, y = Count)) + geom_bar(stat = "identity", fill =
"orange", color = "grey40") + theme_bw() + coord_flip() +
geom_text(
aes(x = Attrition, y = 0.01, label = Count),
hjust = -0.8,
vjust = -1,
size = 3,
colour = "black",
fontface = "bold",
angle = 360
) + labs(title = "Employee Attrition (Amount)", x = "Employee Attrition", y =
"Amount") + theme(plot.title = element_text(hjust = 0.5))
attrition_percentage <-
df %>% group_by(Attrition) %>% summarise(Count = n()) %>%
mutate(pct = round(prop.table(Count), 2) * 100) %>%
ggplot(aes(x = Attrition, y = pct)) + geom_bar(stat = "identity", fill = "dodgerblue", color =
"grey40") +
geom_text(
aes(
x = Attrition,
y = 0.01,
label = sprintf("%.2f%%", pct)
),
hjust = 0.5,
vjust = -3,
size = 4,
colour = "black",
fontface = "bold"
) + theme_bw() + labs(x = "Employee Attrition", y = "Percentage") +
labs(title = "Employee Attrition (%)") + theme(plot.title = element_text(hjust =
0.5))
plot_grid(plot.attritions_number,
plot.attrition_percentage,
align = "h",
ncol = 2)
我收到错误：
> plot_grid(plot.attritions_number,
+ plot.attrition_percentage,
+ align = "h",
+ ncol = 2)
Error in plot_grid(plot.attritions_number, plot.attrition_percentage, :
could not find function "plot_grid"
我用谷歌搜索了这个错误，但没有找到解决方案。
我要的是那个图表：
你们中有人可以帮忙吗？
运行 你的代码，我能够毫无问题地重现你的两个图（使用相同的数据集）。也尝试修改 plot_grid 中的对象，因为在任何一种情况下都不需要使用 plot.
plot_grid(attritions_number,
attrition_percentage,
align = "h",
ncol = 2)
还要仔细检查以确保 cowplot 已成功安装。