小编Rom*_*rik的帖子

如何替换数据帧的单个列中的值.例如,列dataz中的所有0值为值1

     datay dataz
 [1,]     0   100
 [2,]     2   101
 [3,]     3   102
 [4,]     4   103
 [5,]    10     0
 [6,]    11     0
 [7,]     0     0
 [8,]     0     0
 [9,]     0     0
[10,]    12    11
[11,]    45    12

我有一个精心编写的脚本,跨越多个函数(和文件).出于调试目的,我需要将browser调用嵌入到各种角落和缝隙中.当我想要修复一些东西时,我想在没有调试的情况下运行整个事情,而是避免browser调用,因为注释掉所有浏览器调用将意味着我的努力.@mdsumner on R chat建议以非交互模式运行脚本(即在Windows上使用Rscript.exe),但我可以在我的控制台中完成这项工作,以便能够访问traceback.我已经浏览了浏览器文档,我找不到任何可以接近我想要实现的选项.有什么建议？

从FSelector手册:

data(iris)
subset <- cfs(Species~., iris)
f <- as.simple.formula(subset, "Species")
print(f)

具体来说,我指的是"物种〜"中的那个.

现在,对谷歌来说,如何使用一点标点符号(对我来说无论如何)都是非常困难的,我什么也做不了.此代码不清楚.

我尝试将关于给定分布的统计信息(最小值,最大值,四分位数值,平均值,中位数等)添加到R的底部图形(直方图,时间序列图)中.我知道可以使用摘要生成统计数据( )功能.但是,有没有人知道如何将这些信息放在图表的底部？

它看起来应该很容易,但我在网上找不到任何关于如何做的事情.甚至可以使用R？

任何帮助将不胜感激!

使用数据框

x
    Date      Val
    1/1/2012   7
    2/1/2012   9
    3/1/2012   20
    4/1/2012   24
    5/1/2012   50
a <- seq(as.Date(tail(x, 1)$Date), by="month", length=5)
a <- data.frame(a)
x.lm <- lm(x$Val ~ x$Date)

x.pre<-predict(x.lm, newdata=a)

我得到这个错误:

Warning message:
'newdata' had 5 rows but variable(s) found have 29 rows 

我究竟做错了什么？

这是输出输出:

dput(x)
structure(list(Date = structure(c(14610, 14641, 14669, 14700, 
14730, 14761, 14791, 14822, 14853, 14883, 14914, 14944, 14975, 
15006, 15034, 15065, 15095, 15126, 15156, 15187, 15218, 15248, 
15279, 15309, 15340, 15371, 15400, 15431, 15461), class = "Date"), …

在帮助文件中rbinom,size参数是一些试验(包括零),但它没有说明这是否也可以是一个向量.

使用此功能的正确方法是

table(rbinom(n = 1000, size = 1, prob = 0.2))

  0   1 
809 191

但是这里发生了什么？

table(rbinom(n = 1000, size = 0:1, prob = 0.2))

  0   1 
894 106 

假设我有一个数字:4321

我想把它提取成数字:4,3,2,1

我该怎么做呢？

我有一个很好的wellpanel在我的闪亮即顶部看起来不错:

......但我对实际控件上方和下方的所有额外灰色空间感到恼火!我想删除这个不必要的空间.我的行比它需要的高50%,并且我不确定为什么/如何以这种方式调整Shiny大小.

有css/html/Shiny技能的人是否能够指出我正确的方向,关于如何修改它？到目前为止,我的尝试都没有成功.

这是下面的代码:

shinyUI(fluidPage(


  fluidRow(  
    column(12,
           wellPanel(              
             tags$div(class = "row",
                      tags$div(class = "span"),
                      tags$div(class = "span1", h1(numericInput(inputId="num", label="ID", value=NaN))),
                      tags$div(class = "span2", h1(sliderInput(inputId="age", "Age Range", min=32, max=99, value=c(32, 99), step=1))),
                      tags$div(class = "span1", h1(radioButtons(inputId="gender", "Gender", c("combined" = 0, "male" = 1, "female" = 2), inline=FALSE))),
                      tags$div(class = "span1", h1(textOutput("text")))
             )
           ))),  



  fluidRow(   


    column(4,
           plotOutput("some_plot_not_shown"))

)))

感谢您阅读这篇文章.

在data.table按组切片时,用于切片数据的变量在函数执行期间不在子集中.我用这个证明了这个debugonce.

library(data.table)
x <- data.table(a = rep(letters[1:4], each = 3), b = rep(c("a", "b"), each = 6), c = rnorm(12))

myfun <- function(y) paste(y$a, y$b, y$c, collapse = "")

> debugonce(myfun)
> x[, myfun(.SD), by = .(b, a)]
debugging in: myfun(.SD)
debug: paste(y$a, y$b, y$c, collapse = "")
Browse[2]> y
            c
1: -1.2662416
2:  0.9818497
3: -0.5395385

我所追求的是split-sapply范例的功能,我将根据factor(s)切片data.frame并将该函数应用于所有列,也就是说,还包括用于切片的变量它(如下所示).

> debugonce(myfun)

> sapply(split(x, f = list(x$b, x$a)), FUN = myfun)
debugging in: FUN(X[[i]], ...)
debug: paste(y$a, y$b, …

我有一个Rnw文件(一个大文件),我想显示附录中使用的所有代码.

在一些knitr示例(https://github.com/yihui/knitr-examples/blob/master/073-code-appendix.Rnw,也是一个优秀的MWE)中建议使用这样的代码块是办法:

<<Rcode, eval=FALSE, ref.label=all_labels()[-1],echo=TRUE, cache=FALSE>>=
@

这工作正常,除了所有代码块相互合并且没有标记.

另一方面,如果我运行purl(myfile.Rnw),它会标记代码块并将它们分隔两行,这样可以更容易阅读.

有没有办法在报告附录中使用第二种方法自动列出代码？我知道我可以有一个代码块来运行purl来生成myfile.R作为我报告的一部分,但是如何在我的附录中显示myfile.R中的代码？