小编adi*_*der的帖子

清晰的purrr语法

我经常发现自己在使用时在变量名中做出了错误的选择purrr.

例如,在purrr的github页面上获取代码.

library(purrr)

mtcars %>%
  split(.$cyl)
Run Code Online (Sandbox Code Playgroud)

split(.$cyl)我经常犯错误的使用split(cyl).这似乎是最明显的选择,因为它与其他tidyverse命令一致select(cyl).

我的问题是为什么.$在变量名前面.

r purrr

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

如何避免一直调用scale_color_manual

我有所有相同值的情节scale_color_manual.我想避免这种情况,只需调用一次这样的函数: theme(manual_colors = c("#000000", "#111111"))

可能吗 ?

r ggplot2

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

编码地狱德国特殊字符

在StatET eclipse以及我设置的RStudio中

options(encoding = "ISO-8859-1")
Run Code Online (Sandbox Code Playgroud)

在StatET我有:

Sys.getlocale()
[1] "LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252"
Run Code Online (Sandbox Code Playgroud)

在RStudio中相同:

Sys.getlocale()
[1] "LC_COLLATE=German_Germany.1252;LC_CTYPE=German_Germany.1252;LC_MONETARY=German_Germany.1252;LC_NUMERIC=C;LC_TIME=German_Germany.1252"
Run Code Online (Sandbox Code Playgroud)

所有这些都在同一台计算机上同时运行,但输入相同(在两种情况下直接输入控制台),我得到的结果不同.

RStudio:

strsplit("GRÜN", "")
[[1]]
[1] "G" "R" "Ü" "N"
Run Code Online (Sandbox Code Playgroud)

StatET:

strsplit("GRÜN", "")
[[1]]
[1] "G" "R" "Ã" " "N"
Run Code Online (Sandbox Code Playgroud)

问题:除了设置Sys.setlocale()encoding使两个系统产生相同的结果外,我还需要做什么?

encoding r statet rstudio

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

路径变量的子串

我有一个这样的路径../some/thing/foobar/foobar.happening,我希望character在最后/和之间的字符串..

我意识到这对某些人来说很容易,但我还不熟悉正则表达式等等.我也可能自己也可以这样做strsplit,但我正在寻找一个优雅的单行,如果可能的话.

提前致谢!

regex r

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

右键单击停用预览

我在Windows上(7和XP,64位和32位).当我右键单击一个文件时,它会在编辑器中打开(有时会很方便,但大多数情况下很烦人,例如对于pdf等).是否有一个选项可以阻止右键单击打开文件的崇高文本?

注意:我安装了SideBarEnhancement插件.

sublimetext sublimetext3

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

Xgboost Cox生存时间输入

在xgboost 0.81中新实现的cox ph生存模型中,如何指定事件的开始和结束时间?

谢谢

R等价函数将是例如:

cph_mod = coxph(Surv(Start, Stop, Status) ~ Age + Sex + SBP, data=data)
Run Code Online (Sandbox Code Playgroud)

xgboost cox survival

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

如何在仍然限制 x 轴范围的同时更改 x 轴刻度?

我有以下示例数据框,我想从 -4、-1 绘制:

test_x <- c(-3.5, -2, -1, -0.5)
test_y <- c(1,2,3,4)
df <- data.frame(x=test_x, y=test_y)
library(ggplot2)
ggplot(df, aes(x=x, y=y)) + 
  geom_point() +
  xlim(-4, -1)
Run Code Online (Sandbox Code Playgroud)

在此处输入图片说明

我想显示 -4 刻度,我想排除 -0.5 点。但是,我也想更改 x 轴刻度标签。对于我发现的连续数据scale_x_continuous

ggplot(df, aes(x=x, y=y)) + 
  geom_point() +
  scale_x_continuous(breaks=c(-4, -3, -2, -1), labels=c("a","b","c","d"))
Run Code Online (Sandbox Code Playgroud)

在此处输入图片说明

但是,这不显示a刻度,也不排除 -0.5 处的点。尝试使用 x_lim 再次限制它会产生错误 Scale for 'x' is already present. Adding another scale for 'x', which will replace the existing scale

如何在仍然限制 x 轴范围的同时更改 x 轴刻度?

r ggplot2

2
推荐指数
1
解决办法
750
查看次数

标签 统计

r ×5

ggplot2 ×2

cox ×1

encoding ×1

purrr ×1

regex ×1

rstudio ×1

statet ×1

sublimetext ×1

sublimetext3 ×1

survival ×1

xgboost ×1