javascript

git

java

python

git-remote

c++

github

django

c#

reactjs

css

content-type

variables

var

loops

iteration

std

c++-faq

git-checkout

generator

r-调整情节标题(主)位置

我一直无法找到一种方法来使用par来调整R中情节和主标题之间的(垂直)距离。 在此示例中:

plot(1, 1, main = "Title")

我可以使用以下方法调整轴标题的位置:

par(mgp = c(2.5, 1, 0))

但是我看不到任何类似的方法来调整主标题。 我知道可以使用titlemtext进行更多的手动控制,但是我认为也有一种方法可以使用par设置标题距离,这对我而言将更加优雅。

trans by 2020-08-06T21:16:39Z

r-遍历日期时间对象会产生数字i

为什么迭代POSIXctPOSIXct对象会导致numeric? 例如:

test = as.Date("2009-01-01")
print( class( test ) )
# [1] "Date"
for ( day in test )
{
    print( class( day ) )
}
# [1] "numeric"

POSIXct也发生了同样的事情:

test = as.POSIXct("2009-01-01")
print( class( test ) )
# [1] "POSIXct" "POSIXt"
for ( day in test )
{
    print( class( day ) )
}
# [1] "numeric"
trans by 2020-08-06T13:27:20Z

当source()R fi时如何传递命令行参数

我计划在一个R文件中提供另一个R文件,该文件支持读取两个命令行参数。 这听起来像一个琐事,但我无法在线找到解决方案。 任何帮助表示赞赏。

trans by 2020-08-06T03:46:53Z

javascript-书本中的代码折叠

html文档的RMarkdown中的Code折叠选项很棒。 该选项使程序设计方法对感兴趣的人透明,而不会强迫观众滚动几英里的代码。 带有散文和交互式图形输出的紧紧的代码位置使整个项目对于更广泛的受众来说更易于访问,而且还减少了对其他文档的需求。

对于较大的项目,我正在使用bookdown,效果很好。 唯一的问题是没有代码折叠选项。当前在书本中未启用代码折叠。 (请参阅在书本中启用代码折叠)

我知道我不需要任何选择来实现它。 我只需要在正确的位置粘贴正确的代码。 但是什么代码在哪里?

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

trans by 2020-08-05T23:44:33Z

数据框-列出除R中的一列以外的所有列

可能重复:
下拉列R数据框

假设我有一个带有列c1,c2,c3的数据框。

我只想列出c1和c2。 我怎么做?

我试过了:

head(data[column!="c3"])
head(data)[,2]
head(data[!"c3"])
trans by 2020-08-05T17:15:28Z

r-knitr:如何防止输出中的文字换行?

编织为HTML时,knitr的代码输出块中的文本换行有问题。

例如,如果我运行以下命令:

matrix(rnorm(60, 5, 2), ncol = 12)

HTML的输出将包装表,并给出如下输出,第12列移至其余的下方:

##       [,1]   [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9] [,10] [,11]
## [1,] 3.407 0.8035 2.981 5.269 6.989 5.107 7.143 3.127 3.624 7.220 4.805
## [2,] 3.907 5.5971 5.488 4.995 6.496 5.980 1.576 3.009 6.605 3.440 2.754
## [3,] 1.945 3.7668 4.860 2.945 3.663 5.945 7.168 2.012 5.873 8.190 7.441
## [4,] 4.893 6.2054 4.403 3.967 2.880 7.196 1.813 3.283 5.216 5.699 2.829
## [5,] 5.706 0.9084 5.802 1.404 3.122 1.866 6.613 3.299 4.990 3.645 3.766
##       [,12]
## [1,] 0.3951
## [2,] 4.0866
## [3,] 5.9293
## [4,] 6.4729
## [5,] 2.7172

有没有一种方法可以调节输出块的宽度,这样我就可以得到一个表,其中行全部显示在一行上,就像这样?

##       [,1]   [,2]  [,3]  [,4]  [,5]  [,6]  [,7]  [,8]  [,9] [,10] [,11] [,12]
## [1,] 3.407 0.8035 2.981 5.269 6.989 5.107 7.143 3.127 3.624 7.220 4.805 0.3951
## [2,] 3.907 5.5971 5.488 4.995 6.496 5.980 1.576 3.009 6.605 3.440 2.754 4.0866
## [3,] 1.945 3.7668 4.860 2.945 3.663 5.945 7.168 2.012 5.873 8.190 7.441 5.9293
## [4,] 4.893 6.2054 4.403 3.967 2.880 7.196 1.813 3.283 5.216 5.699 2.829 6.4729
## [5,] 5.706 0.9084 5.802 1.404 3.122 1.866 6.613 3.299 4.990 3.645 3.766 2.7172

谢谢!

trans by 2020-08-05T10:11:32Z

r-数据帧中的因子水平重新排序

这个问题已经在这里有了答案:

  • 在不更改值顺序的情况下重新排序因子的级别 7个答案

我有一个data.frame,如下所示:

task    measure
right   m1
left    m2
up      m3
down    m4
front   m5
back    m6
.
.
.

任务列仅采用六个不同的值,这些值被视为因素,并且按R的顺序排列为:“后”,“下”,“前”,“左”,“右”,“上”。

但是,我需要按以下顺序排列它们:“上”,“下”,“左”,“右”,“前”,“后”。 这样,当我在ggplot中使用此数据时,相关任务(例如“ up”和“ down”)会彼此相邻地绘制。

如何更改因子“任务”级别的顺序?

trans by 2020-08-04T22:35:26Z

R中的滚动联接data.table

我想进一步了解滚动连接的工作方式,并且感到有些困惑,我希望有人可以为我澄清这一点。 举一个具体的例子:

dt1 <- data.table(id=rep(1:5, 10), t=1:50, val1=1:50, key="id,t")
dt2 <- data.table(id=rep(1:5, 2), t=1:10, val2=1:10, key="id,t")

我希望这会产生一个长的roll=T,其中id中的值将进行滚动:

dt1[dt2,roll=TRUE]

相反,执行此操作的正确方法似乎是:

dt2[dt1,roll=TRUE]

有人可以向我详细说明roll=T的加入方式,因为我显然不正确地理解它。 我以为id相当于dt1的sql等效项,除了添加了功能locf。

另外,文档说:

X[Y] is a join, looking up X's rows using Y (or Y's key if it has one) 
as an index.

这使得似乎只应该返回X中的内容,而完成的联接是内部联接,而不是外部联接。 如果roll=T但在dt1中不存在特定的id,该怎么办? 多玩一点我不明白列中放置了什么值。

trans by 2020-08-04T13:44:20Z

r-按矩阵列名称提取矩阵列值

是否可以从矩阵中按名称获取矩阵列?

我尝试了多种方法,例如myMatrix["test", ],但似乎无济于事。

trans by 2020-08-03T21:15:58Z

如何获取Leaflet for R使用Shinydashboard高度的100%

我正在创建一个Shiny仪表板应用程序,该仪表板主体应该显示一些地图。 到目前为止,让地图在身体的整个宽度上展开都没有问题,但是以某种方式它不愿意调整到整个高度。enter image description here

传单本身已经设置为覆盖高度的100%,但是并不能解决问题。 当我为leafletOutput使用height属性时,传单对象将根本不会显示,并且我留下一个空框。

该代码可以在下面找到:

library(shinydashboard)
library(leaflet)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(
    sidebarMenu(
      menuItem(
        "Maps", 
        tabName = "maps", 
        icon = icon("globe"),
        menuSubItem("Watersheds", tabName = "m_water", icon = icon("map")),
        menuSubItem("Population", tabName = "m_pop", icon = icon("map"))
      ),
      menuItem(
        "Charts", 
        tabName = "charts", 
        icon = icon("bar-chart"),
        menuSubItem("Watersheds", tabName = "c_water", icon = icon("area-chart")),
        menuSubItem("Population", tabName = "c_pop", icon = icon("area-chart"))
      )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "m_water",
        box(
          title = "Baltic catchment areas",
          collapsible = TRUE,
          width = "100%",
          height = "100%",
          leafletOutput("l_watershed")
        )
      ),
      tabItem(
        tabName = "m_pop",
        # Map in Dashboard
        leafletOutput("l_population")
      ),
      tabItem(
        tabName = "charts",
        h2("Second tab content")
      )
    )
  )
)

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

  output$l_watershed <- renderLeaflet({
    leaflet(height = "100%") %>% addTiles() %>% setView(19.08, 60.25, zoom = 4) %>%addWMSTiles(
      "http://62.236.121.188/arcgis/services/DataAndMaps/Background/MapServer/WMSServer?",
      layers = "11",
      options = WMSTileOptions(
        format = "image/png",
        transparent = TRUE
      ),
      attribution = "Catchment area provided by HELCOM"
    )
  })

  output$l_population <- renderLeaflet({
    leaflet(height = "100%") %>% addTiles() %>% setView(19.08, 60.25, zoom = 4) %>%addWMSTiles(
      "http://62.236.121.188/arcgis/services/DataAndMaps/Background/MapServer/WMSServer?",
      layers = "17",
      options = WMSTileOptions(
        format = "image/png",
        transparent = TRUE
      ),
      attribution = "Population data provided by HELCOM"
    )
  })
}

shinyApp(ui, server)
trans by 2020-08-03T18:27:34Z

与R data.frame类似的Java对象

我真的很喜欢R中的data.frames,因为您可以在一个数据结构中存储不同类型的数据,并且您有很多不同的方法来修改数据(添加列,合并data.frames等),这真的很容易 从数据中提取子集,...

是否有可用的具有相同功能的Java库? 我最感兴趣的是以矩阵形式存储不同类型的数据,并能够提取数据的子集。

在Java中使用二维数组可以提供类似的结构,但是添加列并随后提取前k个记录要困难得多。

trans by 2020-08-03T13:22:01Z

r-如何生成具有指定增量步长的列表?

如何生成具有指定增量步长(例如2)的向量? 例如,我如何产生以下内容

0  2  4  6  8  10
trans by 2020-08-03T06:28:57Z

r-dplyr:如何在函数内使用group_by?

我想在另一个函数中使用dplyr::group_by函数,但是我不知道如何将参数传递给该函数。

有人可以提供一个有效的例子吗?

library(dplyr)
data(iris)
iris %.% group_by(Species) %.% summarise(n = n()) # 
## Source: local data frame [3 x 2]
##      Species  n
## 1  virginica 50
## 2 versicolor 50
## 3     setosa 50

mytable0 <- function(x, ...) x %.% group_by(...) %.% summarise(n = n())
mytable0(iris, "Species") # OK
## Source: local data frame [3 x 2]
##      Species  n
## 1  virginica 50
## 2 versicolor 50
## 3     setosa 50

mytable1 <- function(x, key) x %.% group_by(as.name(key)) %.% summarise(n = n())
mytable1(iris, "Species") # Wrong!
# Error: unsupported type for column 'as.name(key)' (SYMSXP)

mytable2 <- function(x, key) x %.% group_by(key) %.% summarise(n = n())
mytable2(iris, "Species") # Wrong!
# Error: index out of bounds
trans by 2020-08-03T05:41:54Z

r-使用源与解析和评估的注意事项是什么?

精简版

我可以更换吗

source(filename, local = TRUE, encoding = 'UTF-8')

eval(parse(filename, encoding = 'UTF-8'))

没有任何损坏的风险,要使UTF-8源文件在Windows上工作?

长版

我目前正在通过加载特定的源文件

source(filename, local = TRUE, encoding = 'UTF-8')

但是,众所周知,这在Windows上无法正常运行。

作为一种解决方法,Joe Cheng建议改用

eval(parse(filename, encoding = 'UTF-8'))

这似乎工作得很好1,但是即使参考了source的源代码,我也不了解它们在一个关键细节上的区别:

sourceparse都不简单地是source,然后是parse。 相反,它们解析文件内容,然后手动对解析的表达式进行迭代,然后Encoding一对一地对其进行迭代。 我不明白为什么在UTF-8中有必要这样做(source至少会使用它来显示详细的诊断,如果有这样的指示;但是sys.source则不会做任何事情):

for (i in seq_along(exprs)) eval(exprs[i], envir)

sourceing语句的目的是什么? 为什么要遍历索引而不是直接遍历子表达式? 还有其他警告吗?

需要说明的是:我不关心sourceparse的其他参数,其中一些可以通过选项设置。


1编码使source跳闸,但parse不能归结为source尝试转换输入文本的原因。 parse不会这样做,它会按原样读取文件的字节内容,并在内存中将其Encoding简单地标记为UTF-8

trans by 2020-08-03T04:25:18Z

r-如何将2个图(ggplot)合并为一个图?

通过使用R,是否可以将2个ggplot放在一起(即在同一图上)? 我希望显示2个不同数据框的趋势,而不是将它们彼此相邻放置,我想将它们集成到一个图中,而只是更改其中一个的颜色(黑点)。

更具体地说,我有以下2个视觉效果:

ggplot(visual1, aes(ISSUE_DATE,COUNTED)) + geom_point() + geom_smooth(fill="blue", colour="darkblue", size=1)

ggplot(visual2, aes(ISSUE_DATE,COUNTED)) + geom_point() + geom_smooth(fill="red", colour="red", size=1)

它们看起来像这样(都有黑点,我需要将其中一个更改为其他颜色):

enter image description here

enter image description here

trans by 2020-08-02T23:09:49Z

矩阵-R中的连接矩阵

如何连接相同列但行数不同的矩阵? 例如我想要将( dim(a) = 15 7000 )和b (dim(b) = 16 7000)连接起来,我希望结果是31行乘7000列的矩阵。 我可以对不同行和列的矩阵执行此操作吗? 假设我要合并一个15行和7000列的矩阵与另一个16行和7500列的矩阵。 我可以用它创建一个数据集吗?

trans by 2020-08-02T10:00:01Z

r-对...()感到困惑?

在另一个问题中,在函数内部使用了substitute,以获得传递给该函数的名称。 as.character的零件听起来不错,但是...()到底能做什么?

substitute之外的无效代码:

> test <- function(...) ...()
> test(T,F)
Error in test(T, F) : could not find function "..."

其他一些测试用例:

> test <- function(...) substitute(...())
> test(T,F)
[[1]]
T

[[2]]
F

> test <- function(...) substitute(...)
> test(T,F)
T
trans by 2020-08-02T09:24:48Z

R函数fit()和predict()之间是否有区别?

功能fitted()predict()之间有区别吗? 我注意到,来自lme4的混合模型可与fitted()一起使用,但不能与predict()一起使用。

trans by 2020-08-02T03:39:04Z

语言设计-为什么R中有两个赋值运算符,即<-和和->?

我知道如何使用->->,并且有一些关于<-分配与箭头分配之间区别的文章,但是我不知道何时比<-更喜欢=

似乎社区已合并使用->进行分配。

google R风格指南和Hadley Wickam的tidyverse R风格指南都没有在作业部分提及->

我对导致S / S-PLUS开发人员向右箭头分配操作符->的设计考虑感到好奇。与<-==相比,在哪种设置下使用->会被认为更易读(或更容易键入)。?

我不熟悉允许使用右分配语义的任何其他语言。 在这方面,什么语言启发了R?

我正在寻找引用书籍/早期设计文档/用户手册/归档的邮件列表或其他参考文献的答案,以建立S作者/设计者将其放入前向箭头赋值运算符的意图。

trans by 2020-08-01T23:07:02Z

r-如何对数字列表元素求和

我想知道一种优雅的方法,允许求和(或计算平均值)列表的数值。 例如

x <- list( a = matrix(c(1,2,3,4), nc=2), b = matrix(1, nc=2, nr=2))

想要得到

x[[1]]+x[[2]] 

或平均值:

(x[[1]]+x[[2]])/2
trans by 2020-08-01T19:21:09Z

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 下一页 共52页