在Jupyter上使用R内核将笔记本导出到html时出现问题

Question

下面的代码在编写装有R内核的ipython笔记本时工作正常。不幸的是，第二个barplot导出为html失败（两者都嵌入了jupyter选项和手动使用nbconvert）。

library(NLP) 
library(tm) 

# here I used the EBook of Ulysses, by James Joyce, but any text file can fit 
# the text is available here: https://www.gutenberg.org/cache/epub/4300/pg4300.txt 
book <- readLines("pg4300.txt", encoding="UTF-8") 
corpus <- Corpus(VectorSource(book)) 
corpus <- tm_map(corpus, content_transformer(tolower)) 
corpus <- tm_map(corpus, removeNumbers) 
corpus <- tm_map(corpus, removePunctuation) 
dtm <- TermDocumentMatrix(corpus) 
m <- as.matrix(dtm) 

freq <- rowSums(m) 
freq.sorted <- sort(freq, decreasing=TRUE) 

# first barplot with stop words (ok for both notebook and export) 
barplot(freq.sorted[1:50], xlab="Word", ylab="Frequency", las=2) 

corpus.sw <- tm_map(corpus, removeWords, stopwords('english')) 
dtm.sw <- TermDocumentMatrix(corpus.sw) 
m.sw <- as.matrix(dtm.sw) 
freq.sw <- rowSums(m.sw) 
freq.sw.sorted <- sort(freq.sw, decreasing=TRUE) 

# second barplot without stop words (ok on ipython notebook but fail when exporting) 
barplot(freq.sw.sorted[1:50], xlab="Word", ylab="Frequency", las=2) 

什么是很奇怪的，这是第一barplot良好出口，而不是第二个，而这个过程是完全一样的（出50点强的话）。

这里是我的配置：

• MacOSX的10.11.2埃尔卡皮坦
• jupyter 4.0.6
• IPython中4.0.1
• [R版本3.2.2

谢谢你，

Julien

Answer 1

由于这seems to be caused by how the svg plots are embedded in the html page，你也许可以解决此问题通过从绘图选项移除SVG图：

options(jupyter.plot_mimetypes = c("text/plain", "image/png")) # no more svg...