在SparkyR中使用genderizer包创建饼图
嗨,我正在尝试使用genderizer包在R中创建一个饼图。 我指的是以下网站代码: 它抛出一个错误,说没有找到mutate函数,我已经正确安装了所有包。有人能带我到这里吗 或者有人可以分享示例代码,用R和Y创建一个饼图。在SparkyR中使用genderizer包创建饼图,r,apache-spark,rstudio,sparklyr,R,Apache Spark,Rstudio,Sparklyr,嗨,我正在尝试使用genderizer包在R中创建一个饼图。 我指的是以下网站代码: 它抛出一个错误,说没有找到mutate函数,我已经正确安装了所有包。有人能带我到这里吗 或者有人可以分享示例代码,用R和Y创建一个饼图。 这是我的第一个作业,我只是想理解这个概念。TIA如果您使用的不是饼图而是条形图,请尝试此软件包:您能粘贴您收到的确切错误消息吗?你能试着用软件包打电话给mutate吗?像这样:dplyr::mutate。。。也许它被dplyr之后加载的其他包的另一个变异函数覆盖了 libr
这是我的第一个作业,我只是想理解这个概念。TIA如果您使用的不是饼图而是条形图,请尝试此软件包:您能粘贴您收到的确切错误消息吗?你能试着用软件包打电话给mutate吗?像这样:dplyr::mutate。。。也许它被dplyr之后加载的其他包的另一个变异函数覆盖了
library(rvest)
library(stringr)
library(dplyr)
library(genderizeR)
library(ggplot2)
library(googleVis)
paste0("http://www.crn.com/slide-shows/data-center/300076704/2015-big-data-
100-business-analytics.htm/pgno/0/", 1:45) %>%
c(., paste0("http://www.crn.com/slide-shows/data-center/300076709/2015-big-
data-100-data-management.htm/pgno/0/",1:30)) %>%
c(., paste0("http://www.crn.com/slide-shows/data-center/300076740/2015-big-
data-100-infrastructure-tools-and-services.htm/pgno/0/",1:25)) -> webpages
results=data.frame()
for(x in webpages)
{
read_html(x) %>% html_nodes("p:nth-child(1)") %>% .[[2]] %>% html_text() ->
Company
read_html(x) %>% html_nodes("p:nth-child(2)") %>% .[[1]] %>% html_text() ->
Executive
results=rbind(results, data.frame(Company, Executive))
}
results=data.frame(lapply(results, as.character), stringsAsFactors=FALSE)
results[74,]=c("Trifacta", "Top Executive: CEO Adam Wilson")
results %>%
mutate(Name=gsub("Top|\bExec\S*|\bCEO\S*|President|Founder|and|Co-
Founder|\:", "", Executive)) %>%
mutate(Name=word(str_trim(Name))) -> results
results %>%
select(Name) %>%
findGivenNames() %>%
filter(probability > 0.9 & count > 15) %>%
as.data.frame() -> data
data %>% group_by(gender) %>% summarize(Total=n()) -> dat
doughnut=gvisPieChart(dat,
options=list(
width=450,
height=450,
legend="{ position: 'bottom', textStyle: {fontSize: 10}}",
chartArea="{left:25,top:50}",
title='TOP 100 BIG DATA COMPANIES 2015
Gender of CEOs',
colors="['red','blue']",
pieHole=0.5),
chartid="doughnut")
plot(doughnut)