Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/apache-spark/6.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在SparkyR中使用genderizer包创建饼图_R_Apache Spark_Rstudio_Sparklyr - Fatal编程技术网

在SparkyR中使用genderizer包创建饼图

在SparkyR中使用genderizer包创建饼图,r,apache-spark,rstudio,sparklyr,R,Apache Spark,Rstudio,Sparklyr,嗨,我正在尝试使用genderizer包在R中创建一个饼图。 我指的是以下网站代码: 它抛出一个错误,说没有找到mutate函数,我已经正确安装了所有包。有人能带我到这里吗 或者有人可以分享示例代码,用R和Y创建一个饼图。 这是我的第一个作业,我只是想理解这个概念。TIA如果您使用的不是饼图而是条形图,请尝试此软件包:您能粘贴您收到的确切错误消息吗?你能试着用软件包打电话给mutate吗?像这样:dplyr::mutate。。。也许它被dplyr之后加载的其他包的另一个变异函数覆盖了 libr

嗨,我正在尝试使用genderizer包在R中创建一个饼图。 我指的是以下网站代码:

它抛出一个错误,说没有找到mutate函数,我已经正确安装了所有包。有人能带我到这里吗

或者有人可以分享示例代码,用R和Y创建一个饼图。
这是我的第一个作业,我只是想理解这个概念。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)