我知道这个问题的标题是这个问题和本问题的重复,但那里的解决方案对我不起作用,错误信息(略有)不同:
Error in grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y, :
polygon edge not found
(注意缺少字体的缺失部分)
我尝试了所有的建议(更新/重新安装所有加载的图形软件包,ggplot2,GGally和scale,在安全模式下重新启动Mac OSX上的字体,将字体从/字体/(已禁用)移回/字体. ..)但没有一个解决了这个问题.
当我绘制ggplot图时,似乎出现错误
scale_y_continuous(label=scientific_10)
在哪里scientific_10定义为
scientific_10 <- function(x) {
parse(text = gsub("e", " %*% 10^", scientific_format()(x)))
}
因此,我怀疑scales图书馆与它有关.
最令人费解的是,错误只发生在每次这么多次,也许每次第3次或第5次我试图绘制相同的图...
> sessionInfo()
R version 3.2.2 (2015-08-14)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X 10.9.5 (Mavericks)
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] gridExtra_2.0.0 scales_0.3.0 broom_0.4.0 tidyr_0.3.1 ggplot2_1.0.1 GGally_0.5.0 …我想用来rvest抓取网页。它工作正常，但并行执行失败。
例
library(rvest)
library(dplyr)
LINKS <- read_html("https://stackoverflow.com/") %>%
html_nodes(".question-hyperlink") %>%
html_attr(name = "href") %>%
paste("https://stackoverflow.com", ., sep = "")
Get_values <- function(x){
RES <- read_html(x) %>%
html_nodes(".label-key") %>%
html_text()
}
工作正常
DATA <- lapply(LINKS[1:10], Get_values) #works fine
返回NULL
library(parallel)
DATA <- mclapply(LINKS[1:10], Get_values, mc.cores = 2) #returns NULL
当我尝试通过行名称对 1 列矩阵进行子集化时，子集化工作但返回一个数字向量。
你能以某种方式阻止这种行为并保留行名吗？
M<-as.matrix(rnorm(5))
rownames(M)<-LETTERS[1:5]
M
[,1]
A 0.6250957
B 0.7330598
C -0.7127075
D 0.2162602
E 0.2223444
M <- M[which(rownames(M) != "A")]
M
## [1] 0.7330598 -0.7127075 0.2162602 0.2223444