小编Mar*_*dri的帖子

我已经在我的ubuntu 16.04机器上安装了Jupyter笔记本.在jupyter笔记本中默认安装了python.现在我想从jupyter笔记本中使用R.

为此,我按照IRkernel安装链接运行以下命令:

install.packages('devtools')

devtools::install_github('IRkernel/IRkernel')

但是当我运行 IRkernel::installspec()命令时,它会显示以下错误:

必须安装jupyter-client,但"jupyter kernelspec --version"退出代码127

我现在很困惑为什么会出现这个错误.

考虑以下ggplot2图形,其中长小平面/条形文本分为两行.该文字超出了专门用于分面标题的区域.

library(ggplot2)
x <- c(1:3, 1:3)
y <- c(3:1, 1:3)
grp <- c(0, 0, 0, 1, 1, 1)
p <- qplot(x=x, y=y) + geom_line() + facet_wrap(~ grp)
grob <- ggplotGrob(p)
strip.elem.y <- grid.ls(getGrob(grob, "strip.text.x", 
                grep=TRUE, global=TRUE))$name
grob <- geditGrob(grob, strip.elem.y[1], 
        label="First line and\n second line" )
grid.draw(grob)

有没有办法增加条带文本区域的高度？

我使用 plotly 和 ggplot 创建了以下数据框对象和图形

library(ggplot2)
library(plotly)

rdate <- function(x,
              min = paste0(format(Sys.Date(), '%Y'), '-01-01'),
              max = paste0(format(Sys.Date(), '%Y'), '-12-31'),
              sort = TRUE) {          
  dates <- sample(seq(as.Date(min), as.Date(max), by = "day"), x, replace=TRUE)
  if (sort == TRUE) {
    sort(dates)
  } else {
    dates
  }
}

DF<-data.frame(Date = rdate(100))
DF$variable<-LETTERS[seq( from = 1, to = 10 )]
DF$Value<-round(runif(1:nrow(DF),min = 10, max = 50))

接下来我用 ggplot 创建了一个绘图对象

 p <- ggplot(DF, aes(x = Date, y = Value, colour = variable)) + 
  geom_line() + …

与ggplot最简单的方法是什么？

我是否需要调用prop.table或者是否有更简单的方法？

可复制的例子:

x <- c("good", "good", "bad", "bad", "bad", "bad", "perfect", "perfect", "perfect")
y <- c("exercise1", "exercise2", "exercise3", "exercise1", "exercise2", "exercise3", "exercise1", "exercise2", "exercise3")
dt <- data.frame(x, y)

ggplot(dt, aes(x, fill = y)) + geom_bar()

我正在使用 ggplot2 制作一个简单的图形，但它有太多的空白。

我希望这两个点在 x 轴上靠得更近，因此整体图像更小。我将 scale_x_discrete 与以下代码一起使用：

ggplot(box, aes(x=Garden, y=Fitness)) + 
geom_errorbar(aes(ymin=(Fitness-Error), ymax=(Fitness+Error)), 
colour="black", width=.05) +
geom_line() +
geom_point(size=6)+ 
theme(panel.background = element_rect(fill =  
'white'),axis.text=element_text(size=22), 
axis.title=element_text(size=28,face="bold"),legend.key = element_rect(fill = "white"), plot.title = element_text(size=30,face="bold", hjust=0.5),axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)), axis.ticks.length = unit(0, "lines"),legend.text=element_text(size=24),legend.title=element_text(size=26), legend.key.size = unit(1.5, 'lines'))+
ggtitle("Fitness Comparison") + labs(y="Ranked Fitness", x = "Common Garden") +
scale_x_discrete(labels=c("Warm" = "Warm Limit", "Cool" = "Cool Limit"), expand=c(0.2, 0))

我正在使用方差极大旋转运行主成分分析，并希望显示看起来足够简单的图，但是我的加载向量在某些地方非常接近，并且它们倾向于重叠的因素的标签。这就是 ggrepel 用于分离标签的地方。我现在的困境是弄清楚如何将两者联系起来。我使用了自动绘图，它会自动添加所需的文本，并且很难定义要排斥的文本。可能还有其他解决方法，我愿意接受建议。我有我的代码有效但有重叠和我试图排斥下面的代码之一。

autoplot(prcomp(built.df9),
loadings = TRUE, loadings.colour = 'blue', loadings.label = TRUE, 
loadings.label.size = 4, loading.label.color = 'red') +
ggtitle(label = "Principal Component Analysis and Varimax Rotation for Built 
Environment Indicators") +
geom_text_repel(aes(label = rownames(prcomp(built.df9))))

autoplot(prcomp(built.df9),
loadings = TRUE, loadings.colour = 'blue', loadings.label = TRUE, 
loadings.label.size = 4, loading.label.color = 'red') +
ggtitle(label = "Principal Component Analysis and Varimax Rotation for Built 
Environment Indicators")

更新SDK后，在运行模拟器时遇到了这个问题：
Pixel启动器不断停止，

请帮助我，非常感谢您
注意：我使用的是android studio 2.3.3

我希望能够为当用户从绘图上的模式栏中选择“下载为 png”时创建的 ggplotly 图像指定文件名和尺寸。

我看到有一种方法可以从这里提出的绘图中做到这一点，但希望有来自 ggplotly 图表的类似控制，类似于这里提出的问题。

使用相同的代码示例：

x <- c(1:15)
y <- c(1:15)
xy <- as.data.frame(cbind(x, y))
example <- ggplot(data = xy, aes(x = x, y = y)) + geom_line()

ggplotly(example) %>% config(displaylogo = FALSE,
modeBarButtonsToRemove = c(
    'sendDataToCloud',
    'autoScale2d',
    'resetScale2d',
    'hoverClosestCartesian',
    'hoverCompareCartesian'
))

我可以利用另一个config setting来指定文件名/属性吗？downloadImage 设置具有文件名、宽度和高度，但我不确定来自 ggplot 时如何访问这些内容。我发现的配置设置列表似乎没有任何我可以重新调整用途的内容。

能够指定文件名和尺寸将非常有帮助，这样我的网站的用户就可以更轻松、更一致地下载图像。此外，向这些下载的图像添加时间戳/文本信息的能力将更加出色。

我在剧情中有以下栏,我想:

1. 获取x轴标题远离轴标签,使它们不重叠
2. 使Y轴标签更大
3. 将条形值带到条形的顶部

我的代码是:

library(plotly)
plot_ly(x = c('100-200','200-400', '400-600','600-800','800- 1000'),
y = c(12261,29637,17469,11233,17043),          
name = "dd",
type = "bar", 
 xaxis = list(title ="tr"),
yaxis = list(title = "cc") ,                                                
 text = c(12261,29637,17469,11233,17043),textposition = 'auto') %>%
layout(
xaxis = list(tickangle=15, title = " "),
 yaxis = list(title = " "))

感谢您的意见 :)

我正在尝试对数据集运行正态性检验 (shapiro-wilk)，并且我希望同时获得所有列的统计数据和 p 值。我已经阅读了SO上的所有其他页面（R：按组进行的夏皮罗测试不会产生p值和损坏的数据框警告，在数据框中的多个列上使用shapiro.test），但仍然无法弄清楚。任何帮助，将不胜感激！！

例如，这是数据集：具有一个字符向量（NVL）和其余数字，我想按 NVL（NV/VL）进行分组。

     NVL  Var1  Var2  Var3  Var 4  Var 5
1.   NV   22.5  26.8   89.2  35.7   100
2.   NV   34.7  67.4   29.8  12.4   100
3.   NV   68.3  34.5   44.5  23.8   100
4.   NV   11.2  55.3   17.5  77.9   100
5.   VL   55.6  77.2   59.7  89.6   100
6.   VL   60.5  88.7   65.4  99.6   100
7.   VL   89.4  87.5   65.9  89.5   100
8.   VL   65.4  74.2   75.4  89.5   100
9.   VL   81.8  78.5   95.4  92.5 …