小编nnn*_*nnn的帖子

如何在R中平滑此图片,以便只保留两个峰值？

如果这是1d数据,我会做一个运行平均值或适合它的回归函数.但我没有找到关于在二维矩阵上应用这些方法的非常具体的信息.例如,我试图filter()从stats包中使用.

我也考虑过克里金法,但这更多是关于插值的,是吗？

每当我在Inkscape中复制和粘贴某些内容时,结果就是像素化图像,而不是原始对象.例如,复制和粘贴的矩形不能再编辑为矩形,如果我放大则会变得模糊.

我正在研究OSX 10.10.1和X11 2.7.7.

有没有办法告诉kable我将一个长表(超出文本或页面宽度)分成多个显示在彼此下方的表？

我的意思是,你可以这样做:

```{r}
data <- data.frame(....)
kable(data[,1:6])
kable(data[,7:12])
```

但是,要确定在哪里打破data.frame,这需要做很多工作.有没有办法自动完成？我发现kable函数本身没有选项.

计算方法的一种方法是计算表(和标题)中最长条目的字符串宽度,并根据此情况分解表.但我仍然希望有一个很好的方法来做到这一点......

最好我想为html页面生成这样做,但是为乳胶做一个方法也很棒.

我有一个闪亮的应用程序,并将一个rgl 3d-plot集成到其中.我正在renderRglwidget从rglwidget包中使用webgl将rgl图形插入到我的闪亮应用程序中.

在应用程序中,用户可以旋转图形.现在我想保存旋转状态,因此userMatrix或modelMatrix稍后生成一个类似的绘图,其旋转与用户离开上一个图形相同.

这里我读了一些关于存储userMatrix和其他参数的java变量.我可以从我的闪亮应用程序(R代码)中访问它们吗？

在rgl本身中,我可以使用rotationMatrix <- rgl.projection()$model或rotationMatrix <- par3d()$modelMatrix 存储模型的旋转.但是因为在我的情况下,图形不会在rgl中旋转,这些功能对我没有帮助.

我试过的是这个:

library(shiny)
library(rgl)
library(rglwidget)

ui <- fluidPage(
  rglwidgetOutput("3D-plot"),
  actionButton("showMatrix", "show rotation Matrix")
)

server <- function(input, output, session){
  open3d(useNULL = T)
  x <- sort(rnorm(1000))
  y <- rnorm(1000)
  z <- rnorm(1000) + atan2(x, y)
  plot3d(x, y, z, col = rainbow(1000))
  scene1 <- scene3d()
  rgl.close()

  output$"3D-plot" <- renderRglwidget({
    rglwidget(scene1)
  })
  observe({
    input$showMatrix
    par3d()$modelMatrix
  })
}


shinyApp(ui=ui, server=server)

但par3d()$modelMatrix似乎没有返回任何东西.

我尝试在原子编辑器中使用lookbehind断言.我的文字如下:

            <stop color="rgb(0,0,153)"       value = "0.13"/>
            <stop color="rgb(0,0,180)"       value = "0.17"/>
            <stop color="rgb(0,0,223)"       value = "0.25"/>

我可以做一个先行断言.*(?=color\=).它选择"color ="之前的所有内容.但是,如果我尝试lookbehind断言.*(?<=color\=)原子告诉我"无效的正则表达式".原子似乎不能识别<或>作为特殊字符,因为它显示的颜色与普通字母和数字相同.我也不能使用只有一次的子表达式?>.

因为我真的没有找到提示在原子中使用哪种正则表达式的提示,所以我不知道应该使用哪种正则表达式.显然没有人>......

我知道这是xml,我可以用xml方法提取值,但这不是我想在这里实现的部分.