小编nak*_*120的帖子

我正在使用Facebook发布的名为Prophet的新软件包.它做时间序列预测,我想通过组应用此功能.

向下滚动到R部分.

https://facebookincubator.github.io/prophet/docs/quick_start.html

这是我的尝试:

grouped_output = df %>% group_by(group) %>%
  do(m = prophet(df[,c(1,3)])) %>%
  do(future = make_future_dataframe(m, period = 7)) %>%
  do(forecast = prophet:::predict.prophet(m, future))

grouped_output[[1]]

然后,我需要从我遇到的每个组的列表中提取结果.

以下是没有组的原始数据框:

ds <- as.Date(c('2016-11-01','2016-11-02','2016-11-03','2016-11-04',
                   '2016-11-05','2016-11-06','2016-11-07','2016-11-08',
                   '2016-11-09','2016-11-10','2016-11-11','2016-11-12',
                   '2016-11-13','2016-11-14','2016-11-15','2016-11-16',
                   '2016-11-17','2016-11-18','2016-11-19','2016-11-20',
                   '2016-11-21','2016-11-22','2016-11-23','2016-11-24',
                   '2016-11-25','2016-11-26','2016-11-27','2016-11-28',
                   '2016-11-29','2016-11-30'))
y <- c(15,17,18,19,20,54,67,23,12,34,12,78,34,12,3,45,67,89,12,111,123,112,14,566,345,123,567,56,87,90)
y<-as.numeric(y)
df <- data.frame(ds, y)

df

           ds   y
1  2016-11-01  15
2  2016-11-02  17
3  2016-11-03  18
4  2016-11-04  19
5  2016-11-05  20
6  2016-11-06  54
7  2016-11-07  67
8  2016-11-08  23
9  2016-11-09  12
10 2016-11-10  34
11 …

我有一个如下所示的数据框:

A     B
ABC1  0
DEF2  4
DEG0  4

如何对此进行转换,以便如果一行包含字母"D",则在新列中插入值"yes",否则插入"no".

最终的数据框应如下所示:

A     B    C
ABC1  0    no
DEF2  4    yes
DEG0  4    yes

每当我从github下载一个软件包和其他一些软件包时，都会收到以下警告消息：

Warning messages:
1: In untar2(tarfile, files, list, exdir) :
  skipping pax global extended headers
2: In untar2(tarfile, files, list, exdir) :
  skipping pax global extended headers

有没有办法解决这个问题？

这是一个示例包：

devtools::install_github('daroczig/fbRads')

Downloading GitHub repo daroczig/fbRads@master
 ?  checking for file 

'C:\Users\nknauer\AppData\Local\Temp\RtmpWW5UJm\remotes11f43012405a\daroczig- 
   fbRads-2c08d3e/DESCRIPTION' ...
-  preparing 'fbRads': (459ms)
?  checking DESCRIPTION meta-information ... 
-  checking for LF line-endings in source and make files and shell scripts
-  checking for empty or unneeded directories
-  building 'fbRads_3.0.0.tar.gz'

* installing *source* package 'fbRads' ...
** …

我的数据集中有一个列，其数据类型为bigint：

Col1     Col2
   1     1519778444938790
   2     1520563808877450
   3     1519880608427160
   4     1520319586578960
   5     1519999133096120

如何将Col2转换为以下格式：

年月日hr：mm：ss

我不确定当前列的格式是什么，但我知道它应该是一个时间戳。

任何帮助将是巨大的，谢谢！

我正在尝试读取其中包含 1 个 csv 文件的 zip 文件。

当我知道 csv 文件名时它效果很好，但是当我尝试单独提取 zip 文件时，它不起作用。

下面是它的工作原理的示例：

zip_file <- abc.zip
csv_file <- abcde.csv

data <- read.table(unz(zip_file,csv_file), skip = 10, header=T, quote="\"", sep=",")

当我尝试仅提取 zip 文件时，它不起作用：

read.table(zip_file, skip = 10, nrows=10, header=T, quote="\"", sep=",")

出现错误：

Error in read.table(attachment_file, skip = 10, nrows = 10, header = T,  : 
  no lines available in input
In addition: Warning messages:
1: In readLines(file, skip) : line 2 appears to contain an embedded nul
2: In readLines(file, skip) : …

我通过 RMarkdown 创建了一个 flexdashboard。在我的 Rmarkdown 文档中，我想datatable从包中添加一个DT可以让你的表格交互的。我遇到的问题是，当我创建它时，侧面没有滚动条可以上下滚动表格。我知道我需要实现此链接中提供的 javascript，但我不确定如何使用 RMarkdown 实现 javascript：https ://datatables.net/examples/basic_init/scroll_xy.html

我尝试 scrollY 但是当我这样做时，标题对齐完全关闭。

这个示例代码在下面并且完全可重现，因为我也在使用mtcars数据集。

---
title: "Morning Reportab"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
---

```{r setup, include=FALSE}
library(flexdashboard)
library(DT)
```

Row
-----------------------------------------------------------------------

### AGORA {data-height=170}

```{r}
datatable(mtcars)
```

Row
-----------------------------------------------------------------------


### Chart B {data-height=170}

```{r}
datatable(mtcars)
```

Row
-----------------------------------------------------------------------


### Chart C

```{r}
datatable(mtcars)
```

这是输出屏幕截图：

如何在此 rmarkdown 中的每个表的侧面添加滚动条？

任何帮助都会很棒，谢谢！

我有一个数据框如下：

A    B    C    D     E      F      G
AA   1    2    3     4      5      6
BB   3    2    1     9     23    2.6
CC   2    5    1   1.9    2.5   2.99

如何使用 scales 包更改此数据框以将所有列转换为美元格式？对于单列，我可以这样做：

library(scales)
df$B<-dollar(df$B)

我如何为除第一列之外的所有列执行此操作，而无需为每一列一遍又一遍地编写？

有一个叫做prophet的r包，非常好。它是一个广义的加法模型。因变量是您要解决的指标，自变量是：增长函数、季节性函数和一个变量，该变量将解释在这两个变量中找不到的东西。我希望能够添加另一个自变量。例如：

假设我想解决页面浏览量。我有过去九年的数据，在这个包中，它将考虑季节性和增长率来解决这个问题。我将如何包含另一个自变量，例如“温度”？

这是等式在幕后的样子：

Page_Views = g(t) + s(t) + e(t)

我想添加另一个变量：

Page_Views = g(t) + s(t) + Beta(Temperature) + e(t)

我将如何在先知包中做到这一点？

以下是有关如何使用该软件包的教程：https : //cran.r-project.org/web/packages/prophet/vignettes/quick_start.html

数据在这里找到：https : //github.com/facebookincubator/prophet/blob/master/examples/example_wp_peyton_manning.csv

library(prophet)
m<-prophet(df)
future <- make_future_dataframe(m, period = 365)
forecast <- prophet:::predict.prophet(m, future)
plot(m, forecast)

我想知道的主要问题是：“有没有办法在prophet包中为我的广义加法模型添加一个额外的自变量？

谢谢，任何帮助都会很棒！

我有一个包含经度和纬度坐标的数据集。我想检索相应的人口普查区。是否有可以允许我执行此操作的数据集或api？

我的数据集如下所示：

       lat       lon   
1 40.61847 -74.02123   
2 40.71348 -73.96551   
3 40.69948 -73.96104    
4 40.70377 -73.93116   
5 40.67859 -73.99049   
6 40.71234 -73.92416   

我想添加一列带有相应的人口普查区域的信息。

最终输出应类似于以下内容（这些不是正确的数字，只是一个示例）。

       lat       lon     Census_Tract_Label   
1 40.61847 -74.02123                   5.01
2 40.71348 -73.96551                     20
3 40.69948 -73.96104                     41
4 40.70377 -73.93116                  52.02
5 40.67859 -73.99049                     58
6 40.71234 -73.92416                     60

我创建了一个有1000条边的igraph.我的目标是提取在该igraph中找到的所有三角形,但包括标签而不仅仅是那个数字.我还希望它是一个有3列的数据框形式(三角形的每个节点一个)

我试过简单地打电话:

triangles(graph)

并在列中返回名称全部在一列中:

+ 28431/204 vertices, named:
    [1] node_a                                                
    [2] node_b                   
    [3] node_c 
    [4] node_a                                                
    [5] node_b                   
    [6] node_d                 
    [7] node_a                                                
    [8] node_b                   
    [9] node_e                              
   [10] node_a                                                
+ ... omitted several vertices

当我尝试:

adjacent.triangles(graph)

它返回所有数字但不返回节点的名称:

[1]  15 103  45 121 152  78 325 325   3  35  90   0 488 283   3   0 325 325 325 325  78  21 190   3
[25] 133   0  47 167 167   6   3 325 505 415   0  36  78 325  78  78  90   6 …