R脚本无法从bash启动直方图

Question

我有一个chmod 755的直方图。 我想显示直方图。 在R控制台中（删除了“＃！/ usr / bin / env Rscript”），它可以工作，但是当我从外壳执行脚本时却不能。 只需这样做：./histogram.R 我有这个输出：

 [1] 58384 67239 23702 32667 60158 21209 49167 33010 20278 46316 35619    NA
[13] 26647    NA 44791 21630 41907 58796 15578 56909 46550

这是我的代码：

#!/usr/bin/env Rscript
contenuTotalFichier <- read.csv("./resources/dataset_train.20.csv")
colonne.Arithmancy <- contenuTotalFichier["Arithmancy"][,1]
print(colonne.Arithmancy)

hist(colonne.Arithmancy, col = grey(0.9), border = grey(0.2),
main = paste("Quel cours de Poudlard a une répartition des notes homogènes entre les quatres maisons
?"),
xlab = "effectifs en fonction des maisons",
ylab = "cours de Poudlard",
labels = TRUE, las = 1, ylim = c(0, 50))

找到： 将图形另存为pdf，然后使用ggplot2将其打开（例如具有通用数据的示例）

library(ggplot2)
data=data.frame(x=rnorm(100))
plot=qplot(x, data=data, geom="histogram") 
ggsave(plot,file="graph1.pdf")
system("open graph1.pdf")

Answer 1

#!/usr/bin/env Rscript
contenuTotalFichier <- read.csv("./resources/dataset_train.20.csv")
colonne.Arithmancy <- contenuTotalFichier["Arithmancy"][,1]
print(colonne.Arithmancy)

x11() # if you're on linux; quartz() if macOS

hist(colonne.Arithmancy, col = grey(0.9), border = grey(0.2),
main = paste("Quel cours de Poudlard a une répartition des notes homogènes entre les quatres maisons
?"),
xlab = "effectifs en fonction des maisons",
ylab = "cours de Poudlard",
labels = TRUE, las = 1, ylim = c(0, 50))

invisible(readLines("stdin", n=1)) # Wait for ENTER so the chart stays up
dev.off() # close the X11 device

如果要制作文件，请执行迈克尔的建议。