我正在尝试使用tidyquant或dplyr创建一个简单的dplyr语句。
我现在拥有的是；
from <- "2017-07-09"
to <- "2018-12-01"
getSymbols("GOOG", from = from, to = to, src = "yahoo", adjust = TRUE)
colnames(GOOG) <- c("Open", "High", "Low", "Close", "Volume"
浏览 1提问于2018-12-08得票数 1
回答已采纳
1回答
我试图绘制一个全年苹果股票数据的时间序列，我可以使用命令chart_series，但我想自己制作它，用ggplot。
我正在练习使用来自tidyquant包的AAPl股票数据，但是它没有给date列提供列名，而是尝试向它添加一个名称，但是当我尝试它时，更改它旁边的列名而不是日期列。
library('tidyquant')
(tidyquant)
install.packages('tidyquant')
library(tidyquant)
getSymbols('AAPL',from = '2021-01-01',to = &
浏览 4提问于2021-09-24得票数 1
回答已采纳
在RStudio-1.1.463中尝试加载tidyquant包时，我收到以下错误消息： Error: package or namespace load failed for ‘tidyquant’:
.onAttach failed in attachNamespace() for 'tidyquant', details:
call: if (theme$dark) {
error: missing value where TRUE/FALSE needed 我没有使用最新版本，因为它与我的32位机器不兼容。当我使用最新的RStudio版本时，我没有这个问题，所
浏览 22提问于2019-12-28得票数 1
回答已采纳
例如，我使用tidyquant在r中获得雅虎金融公司的股价。
library(tidyquant)
tq_get(c("AAPL","AMD"), from = '20222-03-01', to = '2022-03-02')
这将导致4行。
这导致了多少api调用？
浏览 1提问于2022-04-05得票数 1
回答已采纳
每次重新启动R会话时，除了默认的包外，我还想安装额外的软件包。
我尝试过这样的方法:选项(HTTPUserAgent= sprintf("R/%s (%s)"，getRversion()，粘贴(getRversion()，R.version$platform，R.version$arch，R.version$os )) install.packages( 'shinydashboard'，‘shinyWidget’，'rlist'，'sortable'，'tidyverse'，'XML'，'
浏览 4提问于2022-06-08得票数 0
2回答
我尝试使用tidyquant包运行一些函数，但是当我运行诸如tidyquant::tq_get("AAPL")或tidyquant::tq_get("AAPL")之类的程序时，我得到了这个错误 Error: .onLoad failed in loadNamespace() for 'timetk', details: call: vector("list", length = ncol(frame_mat)) 如果我运行library(timetk)，我会得到同样的错误。 我能做什么?我已经重新安装了R，但它不工作。 这是我的
浏览 45提问于2021-01-22得票数 0
1回答
我有两只股票的每日数据(苹果和谷歌)
library(tidyquant)
dt = tidyquant::tq_get(c("AAPL", "GOOG")) %>%
arrange(symbol, date)
我试图使用以下代码将这些数据从每天转换为每周一次
result = dt %>%
group_by(symbol) %>%
tidyquant::tq_transmute(mutate_fun = to.weekly) %>% data.table
result[symbol == "AAPL" &am
浏览 3提问于2021-01-24得票数 0
回答已采纳
1回答
回程NA
、
在下面的代码中，当我预计2019年2月28日时，对EOMONTH函数的第一次调用将返回NA。第二个调用工作正常。这两个调用都在此函数试图复制的Excel中正确工作。这是个窃听器还是我做错什么了？
library(tidyquant)
sdt <- as.Date("2019-01-31")
EOMONTH(sdt, 1)
EOMONTH(sdt, 2)
我有版本1.0.4的tidyquant和4.1.2版本的R(鸟嬉皮)
浏览 4提问于2022-06-12得票数 0
我看到了2018年向提出的问题。我想知道今天是否有更好的答案。
我们的工作计算机被整个IT安全部门所困扰，这些部门似乎已经存在，使它们变得毫无用处。我们被允许运行R3.6.3 (4.x尚未被批准)。我们不能从公司防火墙后面连接到CRAN。在过去，这意味着我们把笔记本电脑带回家安装软件包。但是现在我们有了一个下载监视器，它可以阻止CRAN下载，即使是在我们自己的wi上。
我试图通过下载个人计算机上的包.zip文件，通过CD传输这些文件，然后用repos=NULL安装来解决这个问题。我用了这个代码
getPackages <- function(packs){
packages <
浏览 6提问于2022-02-07得票数 3
回答已采纳
1回答
不确定发生了什么，我安装了tidyquant和quantmod来处理股票价格，现在得到以下错误消息 library(tidyverse)
Error: package or namespace load failed for ‘tidyverse’ in loadNamespace(i, c(lib.loc, .libPaths()), versionCheck = vI[[i]]):
namespace ‘rlang’ 0.4.5 is already loaded, but >= 0.4.7 is required** 我检查并更新了我所有的R包，并重新启动了R，但这两个都没有
浏览 265提问于2020-10-17得票数 0
我在提取股票数据时遇到了困难。代码在今天早些时候起了作用，但是今天下午我根本无法提取任何股票数据。有没有其他人经历过这个错误，或者你想出了一个解决方案。
下面是我选择的代码
library(here)
library(purrr)
library(ggplot2)
library(furrr)
library(tidyquant)
library(tidyr)
library(dplyr)
set.seed(123)
plan(multisession, workers = 4)
# Set time frame
end <- "2021-12-31"
beg &
浏览 2提问于2022-04-29得票数 1
我正在尝试重现这个，它使用tidyquant框架调整股息的股票价格。
以下是原始示例：
library(quantmod)
library(tidyquant)
library(timetk)
SPY.Close <- Cl(getSymbols("SPY", auto.assign=FALSE))
SPY.Div <- getDividends("SPY", auto.assign=FALSE)
# Within xts framework
SPY <- merge(SPY.Close, SPY.Div)
# now adjus
浏览 16提问于2018-08-10得票数 1
我使用Tidyquant中的tq_get()函数从FRED检索经济数据：
library(tidyquant)
library(tidyverse)
consumer_price_index <- 'CPIAUCSL'
start_date <- as.Date('2022-01-01')
end_date <- as.Date('2022-03-31')
cpi <- tq_get(consumer_price_index,
from = start_date,
浏览 12提问于2022-04-23得票数 1
回答已采纳
1回答
我想计算多周期(每日、每月、每周、季度等)每天的股票回报。基本上，我有以下数据集，并且我想添加其他列，在这些列中，对于每一天，我都有每周、每月、每季等的回报。 library(tidyquant)
library(dplyr)
MSFT <- na.omit(SP500) %>% select(c('symbol', 'date', 'adjusted')) %>%
filter(symbol=='MSFT') %>%
tq_mutate(select = adjusted, mutate_fu
浏览 19提问于2019-03-16得票数 0
2回答
我正在尝试从雅虎一次下载几个股票的股价。我尝试了下面的代码，它会产生结果，但我希望将结果显示在每股列中。
所以：
library(tseries)
library(zoo)
ticker<-c('AAPL', 'MSFT', 'GOOG')
nShares<-length(ticker)
start<-'2015-01-01'
end<-'2015-09-01'
prices <- function() {
y=get.hist.quote(instrument =
浏览 4提问于2015-09-10得票数 2
回答已采纳
假设您希望从2000年以来雅虎和Alpha Vantage (AV)获得大量股票(>100)的数据。
我想知道是否有人调查了以下两个问题中的任何一个：
1)使用getSymbols()时更快的是什么？要在一次调用getSymbols()中将每一股股权分开或全部合并？
2) 不容易出错的是什么？单独打电话还是打一个电话给所有股票？
感谢你在这两点中的任何一个问题上的帮助或建议。
HL
浏览 0提问于2018-10-15得票数 7
我试图用这些函数获得股票符号(都失败了)。
TTR::stockSymbols("AMEX")
符号错误，sort.by :不正确的尺寸数
tidyquant::tq_exchange("AMEX")
获取数据..。
错误:无法重命名不存在的列。X列Symbol不存在。
这些功能对你有用吗？你知道什么解决办法来纠正它们吗？谢谢!
浏览 0提问于2021-02-21得票数 0
1回答
我想使用tidyquant包(或任何其他包)从雅虎检索财务数据。
为了检索微软的收盘价(索引: MSFT)，以下代码运行良好：
#load packages
library(tidyquant)
#acquire monthly average stock prices
getSymbols("MSFT", from = "2000-08-01", to = "2021-07-31", src = 'yahoo', periodicity = 'daily')
output <- aggregate(MSF
浏览 5提问于2021-11-27得票数 1
回答已采纳
1回答
从雅虎财经获取财务报表？
、、、
我想要雅虎金融公司的损益表、资产负债表和现金流量表。我知道有Tidyquant，但我没有看到提取这些数据的选项。有没有其他的R包有API来获取这些数据？我最后的办法是通过网络抓取页面，但希望有一个使用API的R包？谢谢
浏览 4提问于2020-09-18得票数 0
我目前正在运行以下代码，以便从quantmod包中提取一些财务信息。
library(quantmod)
symbols <- c("HOG", "GOOG", "GE")
tickers <- new.env()
lapply(symbols, getFinancials, env=tickers)
BS <- data.frame(lapply(tickers, function(x) {viewFinancials(x, type= 'BS', period = 'A')}))
IS &l
浏览 0提问于2018-03-08得票数 0
回答已采纳
在下面这个闪亮的应用程序中，我将第7-15行的annual和monthly函数嵌入到第22行的selectizeInput占位符中。
library(shiny)
library(shinydashboard)
library(tidyquant)
library(tidyverse)
library(plotly)
annual <- function(x){
(x/lag(x, 12) - 1)*100
}
monthly <- function(x){
(x/lag(x) - 1)*100
}
ui <- dashboardPage(
浏览 4提问于2022-11-23得票数 1
回答已采纳
我想计算R中一只股票的对数回报，问题是我的财政年度是从4月1日到3月31日。我尝试过使用tidyquant和tidyverse包。我试过的代码如下：
library(tidyquant)
RIL<- tq_get("RELIANCE.NS") # download the stock price data of Reliance Industries Limited listed on NSE of India. The data is from January 2011 to May 2021.
library(tidyverse)
RIL1<- RIL %>
浏览 14提问于2021-06-07得票数 0
回答已采纳
我需要计算不同时期(每日/每周/每月)的时间序列差异(例如价格)。在quantmod中(例如，tidyquant中的tq_transmute包装器)，我可以对算术和对数返回做类似的事情(使用“periodReturn”函数)。这里的好效果是，我每天/每月/每周自动得到行。对于纯粹的差异，有类似的功能吗？
我试图搜索文档，但没有找到合适的功能。
浏览 0提问于2019-06-06得票数 0
回答已采纳
2回答
我做了一个图表，但我不知道如何查看图上的条形图的确切值。这是我的代码，以防需要它。我还有一张我的图。
Step 1: Load the tidyverse and tidyquant:
install.packages("tidyverse")
install.packages("tidyquant")
library("tidyverse")
library("tidyquant")
#STEP 2: Getting stocks data:
stocks <- c("TSLA", "UPST&#
浏览 10提问于2022-10-28得票数 0
我正试着在Tidyquant tibble中添加一列。下面是代码：
library(tidyquant)
symbol <- 'AAPL'
start_date <- as.Date('2022-01-01')
end_date <- as.Date('2022-03-31')
prices <- tq_get(symbol,
from = start_date,
to = end_date,
get =
浏览 2提问于2022-04-18得票数 1
2回答
我希望将一些XTS对象作为数据帧存储在R中的列表中。
XTS对象是使用tidyquant包收集的股票价格数据，我需要将这些对象转换为数据帧并将它们存储在列表中。我还有一个额外的要求，我只想保留每只股票的指数列和收盘价栏。
我尝试使用dplyr语法选择感兴趣的列，但我的代码未能选择大于2的列索引。
Error: Can't subset columns that don't exist.
x Locations 3 and 4 don't exist.
i There are only 2 columns.
这是我正在使用的代码，但是我很难理解为什么我不能从我的“强化”数
浏览 1提问于2020-12-27得票数 1
回答已采纳
1回答
我有一个时间序列，并根据股票价格计算了两个趋势。当SMA.15 (蓝线)交叉SMA.15 (红线)时，我试图在地块上添加像˄这样的标签
AAPL %>%
select(date, close, SMA.15, SMA.50) %>%
gather(key = type, value = price, close:SMA.50) %>%
ggplot(aes(x = date, y = price, col = type)) +
geom_line() +
theme(legend.position="bottom") +
浏览 1提问于2018-04-09得票数 0
我有一些每日的时间序列，我正在尝试使用ggplot对绘图的某些区域进行着色。我想在每年的7月和8月之间的月份遮阴。我正在尝试使用geom_rect，我可以在两个日期之间获得它，而不是每年的相同日期之间。
数据：
library(dplyr)
library(ggplot2)
library(tidyquant)
data(FANG)
data <- FANG %>%
filter(symbol == "FB")
data %>%
ggplot(aes(x = date, y = adjusted)) +
geom_line()
浏览 30提问于2019-11-07得票数 2
回答已采纳
假设我有以下数据。我想计算我的时间序列的eahc的Durbin Watson检验。然后我试着在盒子图中画出每个公司的DW值。
library(tidyquant)
library(lmtest)
data(FANG)
FANG_annual_returns <- FANG %>%
group_by(symbol) %>%
tq_transmute(select = adjusted,
mutate_fun = periodReturn,
period = "daily"
浏览 4提问于2019-08-07得票数 1
回答已采纳
1回答
我想绘制一系列中每一年的累积线，但问题是每一年都有不同的观察值。我试过使用Chart_series，但它不起作用。 我的目标是根据累积进化将线条绘制为年份。 在这个例子中，我只写了两年。 library(PerformanceAnalytics)
library(quantmod)
library(tidyverse)
library(tidyquant)
library(xts)
a<-dailyReturn(TSLA,subset='2020')
a2019<-dailyReturn(TSLA,subset='2019')
b<-
浏览 11提问于2020-07-22得票数 0
我正在尝试使用tidyquant包从Alpha Vantage创建一个数据集。我正在寻找一种解决方案来指定我的数据集的日期范围(似乎使用from和to参数不起作用。 有什么建议吗 我的代码如下 data <- c("EUR/USD", "EUR/ZAR") %>%
tq_get(from = '2019-01-01',to = '2019-12-01',get = "alphavantage", av_fun = "FX_WEEKLY")
浏览 28提问于2020-08-14得票数 0
回答已采纳
2回答
我得到了一个.rData文件中的一些数据。该格式是字符模式下的xts对象。(我知道这是一种不同寻常的格式，但我无法控制它)
> head(trades)
SYMBOL EX PRICE SIZE COND BID BIDSIZ OFR
2012-05-04 09:30:00 "BAC" "T" "7.89" "38538" "F" "7.89" "523" "7.9"
2012
浏览 3提问于2017-02-27得票数 1
回答已采纳
1回答
我正在尝试使用以下代码从Tiingo获取加密货币的最新报价：
library(tidyquant)
tiingo_api_key('<my key>')
prices.hour <- tq_get(c('adausd', 'ethusd', 'xrpusd'),
get = "tiingo.crypto",
from = '2021-05-01',
to = '202
浏览 10提问于2021-05-17得票数 0
1回答
我创建了一个自定义函数来将工作日添加到日期。该函数依赖于以下软件包：
library(tidyverse)
library(lubridate)
library(tidyquant)
这是我创建的函数：
add_workingdays <- function(start_date, number_of_days, switch_count_weekendsholidays = TRUE, remove_weekends = TRUE, holidays = NULL){
start_date <- start_date %>% as.Date()
if (!is.D
浏览 7提问于2022-04-13得票数 1
回答已采纳
2回答
我想更改以下数据集：
date A B
01/01/2018 391 585
02/01/2018 420 595
03/01/2018 455 642
04/01/2018 469 654
05/01/2018 611 900
06/01/2018 449 640
07/01/2018 335 522
08/01/2018 726 955
09/01/2018 676 938
10/01/2018 508 740
11/01/2018 562 778
12/01/2018 561 761
13/01/2018 426 609
14/01/201
浏览 5提问于2021-06-05得票数 1
回答已采纳
1回答
例如，我使用的是tidyquant数据集。
install.packages('tidyquant')
library(tidyquant)
library(data.table)
options("getSymbols.warning4.0"=FALSE)
options("getSymbols.yahoo.warning"=FALSE)
# Downloading Apple price using quantmod
first.date <- Sys.Date() - 30
last.date <- Sys.Date()
ge
浏览 4提问于2021-04-18得票数 0
回答已采纳
1回答
我有以下内容，它为每个证券的历史价格创建了三个嵌套列表，例如用于福特的Price$F。
library(tseries)
tickers <- c('F','MSFT','GOOG')
end = Sys.Date()-1
Price <- list()
for(i in tickers){
Price[[i]] <- get.hist.quote(i, end = Sys.Date()-1,
quote = c("Open", "High", &#
浏览 1提问于2020-07-27得票数 0
3回答
我想在一条语句中计算所有移动平均值，而不是重复我自己。这有可能使用quantmod，还是需要巧妙地使用tidyeval和/或purrr？
library(tidyquant)
library(quantmod)
library(zoo)
tibble(date = as.Date('2018-01-01') + days(1:100),
value = 100 + cumsum(rnorm(100))) %>%
tq_mutate(mutate_fun = rollapply, select = "value", width = 1
浏览 2提问于2019-03-12得票数 0
回答已采纳
为了突出显示在我的ggplot可视化中的移动平均线，我想给它一个不同的颜色(在这种情况下，灰色或黑色的两条MA线)。当涉及到表示两个时间序列的图时，我很难找到最好的解决方案。也许我该换个办法。
suppressPackageStartupMessages(library(tidyverse))
suppressPackageStartupMessages(library(tidyquant))
V = 365
data <- data.frame (var1 = c(rnorm(V)),
var2 = c(rnorm(V)+12),
浏览 13提问于2022-01-27得票数 0
回答已采纳
我从下面的代码中得到以下错误消息：
In to_period(xx, period = on.opts[[period]], ...) :
missing values removed from data*
它适用于一些股票，但一些股票得到的错误消息与此相同。我应该在使用tq_transmute之前先使用na.omit(N225)吗？
N225 <- tq_get("^N225",
from = "2016-01-01",
to = "2020-12-31",
浏览 38提问于2021-05-15得票数 0
我已经在R中从Netfilx下载了股票价格数据： library(tidyquant)
library(timetk)
library(ggplot2)
library(tibble)
library(dplyr)
library(corrplot)
library(tidyr)
netflix <- tq_get("NFLX",
from = '2009-01-01',
to = "2018-03-01",
浏览 16提问于2021-02-02得票数 1
library(tidyquant)
library(tidyr)
prices_hwpj <- tq_get(c("APPL","MSFT"),
from = "2015-01-01",
to = "2020-01-01",
get = "stock.prices",
)
prices_hwpj <- as.matrix(prices_hwpj)
prices_hwpj
浏览 0提问于2020-05-13得票数 0
1回答
数据：
library(tidyverse)
library(tidyquant)
library(lubridate)
df <- tq_get("^GSPC", from='1930-01-01', to='2022-12-31')
我想为每年的第一次约会过滤。
我的代码：
df %>% filter(month(date) == 1, day(date) == 1) %>% head(n=Inf)
我得到以下消息：
A tibble: 0x8…包含8个变量:符号、日期、打开、高、低、关闭、音量，调整后使用colname
浏览 2提问于2022-11-26得票数 -1
回答已采纳
我使用R中的tidyquant包来计算SP500中每个符号的指标。
作为代码示例：
stocks_w_price_indicators<- stocks2 %>%
group_by(symbol)%>%
tq_mutate(select=close,mutate_fun=RSI) %>%
tq_mutate(select=c(high,low,close),mutate_fun=CLV)
这适用于以价格为基础的指标，但不包括数量指标.
我得到“评估错误:参数”“卷”是缺少的，没有默认的。
stocks_w_price_indicators<- stocks2 %&
浏览 3提问于2018-10-26得票数 0
回答已采纳
1回答
我已经看过类似的问题，我有一种感觉，我已经做了一切。还是没有得到欲望的输出。我正在使用ggplot2和tidyquant软件包来可视化数据，其中包含两个财务趋势，我正试图显示一个包含趋势线颜色图的图例。
data %>%
ggplot(aes(date, price)) +
geom_line() +
geom_ma(ma_fun = SMA, n = 50, size = 1 , col = "red" , show.legend = TRUE)+
geom_ma(ma_fun = SMA, n = 200, size = 1 , col = "
浏览 0提问于2018-04-09得票数 2
回答已采纳
1回答
我在读哈德利的：
然而，我仍然很难在提球中引用一只老虎。
> library(tidyquant)
> f <- tq_get("F", get="key.ratios")
> f
# A tibble: 7 x 2
section data
<chr> <list>
1 Financials <tibble [150 x 5]>
2 Profitability <tibb
浏览 1提问于2017-11-24得票数 3
回答已采纳
我正在尝试使用quantmod将数据提取到r中。我收到一个使用"getQuote“函数的”fix.by(by.y，y)错误：'by‘必须指定一个唯一有效的列“。 当我使用几个股票的手写列表(tickers<-c("CCL","RCR","BA"))时，我没有得到这个错误，但当我尝试使用从交易所拉出的股票代码列表时，我得到了这个错误。 有人知道解决方案吗？ 谢谢 library(tidyquant) # edited to be included/ it is needed
library(quantmod)
AMEX &
浏览 225提问于2020-06-25得票数 1
回答已采纳
我是分析时间序列数据的新手，正在寻找一些帮助从一些OHLC数据中提取月度高价和低价。当我尝试聚合每月的开盘价、高价、低价和收盘价时，只提取每个月最后一个日期的值，而不是每个月的max (高)和min (低)。任何帮助都是非常感谢的。 library(tidyquant)
library(tidyverse)
amzn.prices <- tq_get("AMZN", get = "stock.prices", from = '2010-12-31', to = "2013-12-31")
monthly.amzn &l
浏览 61提问于2021-07-23得票数 0
我试图在ggplot，苹果和微软上绘制2个时间序列(指数化股票价格)。我想要阴影这两条线之间的区域，但只有当AAPL索引价格高于MSFT时。我该如何做到这一点？ 我一直在读关于使用geom_ribbon()的文章，但我看到一些人说这是有问题的，当两条线不交叉时就不能工作。我也没能让代码正常工作。如何为geom_ribbon()设置ymin和ymax值？我也尝试过geom_area()，但是我创建的只是一个堆叠的面积图。 到目前为止，我的代码如下： install.packages("tidyquant")
install.packages("ggplot2")
浏览 19提问于2019-05-03得票数 2
回答已采纳
1回答
我试图为我的数据计算日股票回报率的年波动率，这些数据的每日观察时间为2005年1月1日至第31/2021号决定。我的数据包含数千个帐户，因此我需要一个代码来计算它，而不必重复每个帐户和年份的代码。并不是所有的帐户都是每年都遵守的。
我在互联网上看到的是计算单个账户日股票回报率年化波动率(标准差)的例子，但我不知道如何在数千个账户的一个代码中做到这一点。你能帮帮我吗？
我的数据看上去有点像这样，但是很多年和很多账户：
ID Year Day Return
1 1 1 a
1 1 2 b
1 2 1 c
浏览 7提问于2022-07-20得票数 1
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM
腾讯云开发者
