小编Dan*_*Dan的帖子

使用dplyr和add_row()在每个组中添加行

如果我向ìris数据集添加一个新行:

iris <- as_tibble(iris)

> iris %>% 
    add_row(.before=0)

# A tibble: 151 × 5
    Sepal.Length Sepal.Width Petal.Length Petal.Width Species
          <dbl>       <dbl>        <dbl>       <dbl>   <chr>
1            NA          NA           NA          NA    <NA> <--- Good!
2           5.1         3.5          1.4         0.2  setosa
3           4.9         3.0          1.4         0.2  setosa
Run Code Online (Sandbox Code Playgroud)

有用.那么,为什么我不能在每个"子集"的顶部添加一个新行:

iris %>% 
 group_by(Species) %>% 
 add_row(.before=0)

Error: is.data.frame(df) is not TRUE
Run Code Online (Sandbox Code Playgroud)

r dplyr tidyverse

10
推荐指数
3
解决办法
6656
查看次数

如何在选项卡/选项卡集 [rmarkdown / bootstrap] 上添加下拉菜单

Bootswatch 的文档建议我可以使用选项卡集中选项卡的下拉菜单:

在此处输入图片说明

如何使用 Rmarkdown 实现这一目标?我试过了:

# SECTION 1 {.tabset .tabset-fade}

## Section 1.1 

## Section 1.2 {????something here?????}
 ### Section 1.2.1  <<<<<<<<< want this to appear under the dropdown menu
Run Code Online (Sandbox Code Playgroud)

html r twitter-bootstrap r-markdown blogdown

7
推荐指数
2
解决办法
9609
查看次数

如何只在一个pdf中保存ggforce :: facet_grid_paginate的输出?

我正在使用ggforce包在几个页面上生成刻面图:

library(ggforce) 

for(i in 1:6){
  ggplot(diamonds) +
    geom_point(aes(carat, price), alpha = 0.1) +
    facet_wrap_paginate(~cut:clarity, ncol = 2, nrow = 2, page = i)

  ggsave(paste0("~/diamonds_", i, ".pdf"))
}
Run Code Online (Sandbox Code Playgroud)

这是生成预期的6个PDF文件:
在此输入图像描述

一个单独的pdf中输出6页的最简单方法是什么?

我知道这可以用reportspdftools包完成,但我想知道是否有更直接的方法来实现这一点.我希望ggforce能够为输出提供单页的功能,但看起来情况并非如此?

pdf pdf-generation r ggplot2 ggforce

7
推荐指数
2
解决办法
1612
查看次数

在 R 中打开 .ODC 连接

我有一个 .odc(办公数据连接),它将 Excel 连接到 Web 服务(MSBI、Web PowerBI)。

运行良好。我打开 odc 文件,Excel 打开并连接到数据源。

如何直接从 R 打开此连接?

odc 文件内容为:

 <odc:ConnectionString>
    Provider=MSOLAP;
    Integrated Security=ClaimsToken;
    Identity Provider=https://login.microsoftonline.com/common, 
    https://analysis.windows.net/powerbi/api, xxxxxx-xx-xx-xxxxxx;
    Data Source=pbiazure://api.powerbi.com;
    Initial Catalog=xxxxx-xxxx-xxxx-xxxx-xxxxx;
    MDX Compatibility= 1;
    MDX Missing Member Mode= Error;
    Safety Options= 2;
    Update Isolation Level= X;
    Locale Identifier= 10XX
    </odc:ConnectionString>
Run Code Online (Sandbox Code Playgroud)

这是我到目前为止所尝试的:

library(httr); library(httpuv)
oauth_endpoints("azure")
powerbi.urls <- oauth_endpoint(access    =  "authorize", 
                               authorize =  "token", 
                               base_url  =  "https://login.windows.net/common/oauth2")

powerbi.app <- oauth_app(
                         appname = "pbiazure://api.powerbi.com XXXX-XX-XXX-a611",
                         key     = "XXXXXXXXX",
                         secret  = "XXXXXXXXX")

powerbi.token <- oauth2.0_token(powerbi.urls, powerbi.app,
                                user_params …
Run Code Online (Sandbox Code Playgroud)

olap odbc r rodbc powerbi

6
推荐指数
0
解决办法
831
查看次数

ROracle 安装 :: 无法加载共享对象错误

inDL(x, as.logical(local), as.logical(now), ...) 中的错误:无法加载共享对象 'C:/Users/Daniel/R/winlibrary/3.2/ROracle/libs/x64/ ROracle.dll': LoadLibrary 失败: %1 不是有效的 Win32 应用程序。

library('ROracle')
Error in inDL(x, as.logical(local), as.logical(now), ...) :
unable to load shared object 'C:/Users/Daniel/R/winlibrary/3.2/ROracle/libs/x64/ROracle.dll':
LoadLibrary failure:  %1 is not a valid Win32 application. 
Run Code Online (Sandbox Code Playgroud)

在此处输入图片说明


我不知道从哪里开始解决这个问题。这是 libPath() 的结果

> .libPaths()
"C:/Users/Daniel/R/win-library/3.2"  "C:/Program Files/R/R-3.2.3/library"
Run Code Online (Sandbox Code Playgroud)

Windows 10,R 版本 3.2.3

oracle installation r roracle

5
推荐指数
1
解决办法
3857
查看次数

在Rmarkdown中添加内嵌图像

我找不到在我用RStudio制作的降价文档上插入内嵌图像的方法.

看起来像RmarkDown Style Cheat表(https://www.rstudio.com/wp-content/uploads/2016/03/rmarkdown-cheatsheet-2.0.pdf)没有提到这样的功能.

这目前可能吗?

这是一个使用html作为svg图像的示例: link: http://www.herongyang.com/HTML/HTML5-Add-Inline-SVG-Image-HTML5-Documents.html

在此输入图像描述

markdown pandoc rstudio r-markdown

4
推荐指数
2
解决办法
3555
查看次数

如何在 ggplot geom_smooth() 上使用操纵()

有谁知道如何在ggplot上使用操作(),以便轻松选择平滑(跨度)级别?我尝试了以下但没有成功:

# fake data
    xvals <- 1:10
    yvals <- xvals^2*exp(rnorm(2,5,0.6))
    data <- data.frame(xvals,yvals)

# plot with manipulate
    manipulate(
    ggplot(data,aes(xvals,yvals)) +
      geom_smooth(span=slider(0.5,5)) +
      geom_point()
    )
Run Code Online (Sandbox Code Playgroud)

我希望能够轻松地通过“平滑级别”。

r ggplot2

3
推荐指数
1
解决办法
3013
查看次数

如何在rmdformats / readthedown上更改颜色/主题?

我正在使用rmdformatsR中的readthedown格式的软件包生成报告。

如何更改默认的整体颜色?

在此处输入图片说明

markdown r rstudio

2
推荐指数
3
解决办法
1442
查看次数

如何根据滚动日期规则创建ID变量?

这很令人尴尬:我承认我的几段代码与此类似:

在此输入图像描述

Arghhhh!真正的程序员在看到类似的东西时会畏缩吗?

这个数字应该是不言自明的:我需要一个名为Season的变量,它根据WEATHERDATE列返回ID"(year-1)_(year)".

因此,日期从"1998-06-15"到"1999-06-14"的任何行都应在Season ID列下返回"1998-1999" .

WEATHERDATE列仅从1998-01-01运行到TODAY.

我打赌这有一个/两个班轮解决方案.我试过动物园包但没有成功.

任何R向导都指向我在这里缺少的明显解决方案?

***可重复的例子:

WEATHERDATE <- seq(as.Date("1998-01-01"), len=99999, by=1)
VARIABLE    <- rnorm(n = length(WEATHERDATE))
data_mex    <- data.frame(WEATHERDATE, VARIABLE)
## how to create SEASON based on dates??
# I would then run the code block from above, something like:
data_mex <- within(data_mex, Season[DATEWEATHER >= ymd(StartOfSeason)+365*0   & DATEWEATHER < ymd(StartOfSeason)+365*1 ] <- "1998-1999") 
Run Code Online (Sandbox Code Playgroud)

当然,我不需要每年回来并触摸代码的解决方案将是理想的:)

r time-series lapply zoo xts

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