小编Ale*_*x P的帖子

RMarkdown中用于html文档的代码折叠选项非常棒.该选项使得程序化方法对于那些感兴趣的人来说是透明的,而不会迫使观众滚动数英里的代码.通过散文和交互式图形输出紧密放置代码,使整个项目更容易被更广泛的用户访问,而且还减少了对额外文档的需求.

对于一个更大的项目,我正在使用bookdown,它运行良好.唯一的问题是没有代码折叠选项.在记事本中当前未启用代码折叠.(请参阅在bookdown中启用代码折叠)

我知道我不需要选择来实现它.我只需要将正确的代码粘贴到正确的位置或地方.但是什么代码和在哪里？

一个可行的替代方案是将代码块放在页面中块的输出下面.或者,最后,将它们作为附录.我可以用html做到这一点,但不像rbookdown那样可重复.

我正在尝试创建一个散点图,它由六位数的计数器总结.我希望用户能够为色标定义计数中断.我有这个工作,使用scale_fill_manual().但奇怪的是,它有时只能起作用.在下面的MWE中,使用给定的种子值if xbins=10,如果出现问题导致图如下:

但是,如果xbins=20或者40,例如,情节似乎没有问题:

我的MWE如下:

library(ggplot2)
library(hexbin)
library(RColorBrewer)

set.seed(1)
xbins <- 20

x <- abs(rnorm(10000))
y <- abs(rnorm(10000))
minVal <- min(x, y)
maxVal <- max(x, y)
maxRange <- c(minVal, maxVal)
buffer <- (maxRange[2] - maxRange[1]) / (xbins / 2)
h <- hexbin(x = x, y = y, xbins = xbins, shape = 1, IDs = TRUE,
            xbnds = maxRange, ybnds = maxRange)
hexdf <- data.frame (hcell2xy(h),  hexID = h@cell, counts = h@count)
my_breaks <- …

这看起来很简单,但我无法弄清楚.

鉴于此数据框架

df=data.frame(
  x = c(12,12,165,165,115,148,148,155,155,521),
  y = c(54,54,122,122,215,108,108,655,655,151)  
)


 df
     x   y
1   12  54
2   12  54
3  165 122
4  165 122
5  115 215
6  148 108
7  148 108
8  155 655
9  155 655
10 521 151

现在,我如何获得仅存在一次的行.这是第5行和第10行.行的顺序可以完全是任意的,因此检查"下一行"不是一种选择.我尝试了很多东西,但是我的data.frame没有任何工作,它有大约40k行.

我有一个解决方案在我的data.frame的子集(~1k行)上工作,需要3分钟来处理.因此,我的解决方案需要120分钟的原始data.frame,这是不合适的.有人可以帮忙吗？