小编Fra*_*ell的帖子

使用ggplot2沿平滑曲线绘制直方图或密度

是否有通用的方法来绘制密度(小提琴图)或直方图,显示x沿平滑(x,y)曲线的分布?我使用这种方法来显示x何时存在多个组的边际分布(例如,一个面板上的不同曲线,由不同颜色描绘).

下面是一个使用Hmiscplsmo函数得到分层黄土曲线和尖峰直方图的示例,显示了sex特定的数据密度age.

require(Hmisc)
set.seed(1)
age <- rnorm(500, 50, 15)
y <- sample(0:1, 500, TRUE)
sex <- sample(c('female','male'), 500, TRUE)
plsmo(age, y, group=sex, col=1:2,
      datadensity=TRUE, scat1d.opts=list(nhistSpike=20))
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

r histogram ggplot2 density-plot

11
推荐指数
1
解决办法
962
查看次数

如何创建包含绘图图形的R Markdown晕影

我在CRAN(rms包)上有一个现有的R包我希望添加一个使用R Markdown和RStudio创建的html插图.我在Writing R Extensions手册中看到了我需要的大部分内容,以及如何让RStudio自动编译R Markdown Vignettes?

不显而易见的是,我想使用plotly函数来创建交互式图形.与RStudio一起使用这个自包含的html文件工作得很好,但我不知道如何确保这些小插图与CRAN提交有关,以及如何设置它.

r

10
推荐指数
1
解决办法
449
查看次数

在R plotly子图上获得单独的轴标签

当使用R plotly软件包版本4.5.6时,我无法弄清楚如何在使用组合多个图时显示轴标签subplot.这是一个没有出现x轴标签的例子.

require(plotly)
a <- data.frame(x1=1:3,   y=30:32)
b <- data.frame(x2=11:13, y=31:33)

u <- plot_ly(a)
u <- add_lines(u, x=~x1, y=~y)
v <- plot_ly(b)
v <- add_lines(v, x=~x2, y=~y)
subplot(u, v, shareY=TRUE)
Run Code Online (Sandbox Code Playgroud)

r plotly r-plotly

9
推荐指数
1
解决办法
4148
查看次数

使用facet_grid时如何更改构面边框的颜色

使用时facet_grid,ggplot2将构成构面变量的主要类别除以比通常更宽的白线.这很好地用于大多数目的.有时我想更清楚地显示这些主要分类之间的分歧,并希望用另一种颜色遮蔽分面.有没有办法做到这一点?谢谢.

r ggplot2

8
推荐指数
1
解决办法
8523
查看次数

更新使用install_hugo()安装的Hugo学术主题的最佳实践

因为我没有使用git clone到有R安装雨果的学术主题blogdown,因为我用我自己的git仓库来管理整个blogdown目录结构(其中包括theme)似乎是复杂的使用git所讨论的更新的学术主题在这里.更新现有R blogdown结构的学术主题的最佳方法是什么?

git r hugo blogdown

8
推荐指数
1
解决办法
585
查看次数

如何使用rmarkdown html笔记本指定图形大小

我无法得到一个rmarkdown html笔记本来关注我指定的数字大小.我尝试过使用knitr::opts_chunk$set(fig.width=7),我尝试过包含以下内容:

output:
  html_notebook:
    fig_height: 5
    fig_width: 7
    toc: yes
    toc_float:
      collapsed: yes
Run Code Online (Sandbox Code Playgroud)

指定大小的正确方法是什么?如何改变不同代码块的图像大小?

我对html笔记本工作流程一般感到困惑,例如,运行所有代码然后渲染它我一直在使用Run ... Run All然后单击Preview.这是首选方法吗?

我使用的是最新版本的的rmarkdownknitr包装,R和RStudio预览.

r rstudio knitr r-markdown

5
推荐指数
0
解决办法
2467
查看次数

为 data.table 的列设置多个不同的属性

data.table具有优雅setattr的就地添加单个属性到列。有没有一种优雅的方法可以一步覆盖多个属性?例如,假设 adata.table有许多列,我想为列分配两个属性,为列分配x1三个属性,x3如下所示list

a <- list(x1=list(label='X1', units='mm'),
          x3=list(label='X3', comment='collected remotely', format='type 3'))
Run Code Online (Sandbox Code Playgroud)

我可以轻松编写处理a和调用setattr5 次的代码来完成此任务。但我希望有更好的方法。

attributes r attr data.table

5
推荐指数
1
解决办法
140
查看次数

在另一个函数内定义函数的优雅方式

我想建造

f <- function(...) {
   g <- function(x) x ^ 2
   list(...)
}
Run Code Online (Sandbox Code Playgroud)

所以我可以调用使用f(g(4))并产生list(...)结果list(16).

一般来说,我将定义几个临时函数f,用户可以在调用时调用它们f(...).

我已经尝试过assign,newenvironment但刚刚变得更加困惑.感谢您提供优雅的解决方案.

想要这个的原因是我想要一个Hmisc包中的函数,drawPlot能够让用户指定一般命名的函数作为构建一系列图形元素的输入,我不想保留这些泛型类型的名称.例如:

d <- drawPlot(Curve(), Points())   # interactively make a curve and
                                   # a set of points
Run Code Online (Sandbox Code Playgroud)

r

4
推荐指数
1
解决办法
1592
查看次数

html 文档的 rmarkdown 部分编号深度

我在yaml标题中使用以下内容对部分进行编号并指定目录深度:

output:
  html_document:
    toc: yes
    toc_depth: 3
    number_sections: true
    toc_float: 
      collapsed: false
    code_folding: hide
    theme: cerulean
Run Code Online (Sandbox Code Playgroud)

对于自动编号的部分,我将深度 4 部分 ( #### ....) 编号。如何指定节编号的深度限制?我知道如何使用编号来抑制编号,#### .... {-}但会喜欢使用更自动的东西。

html format r-markdown

3
推荐指数
1
解决办法
1540
查看次数