return `getSymbols()` 的输出作为数据框

Question

如果我尝试从用户那里获取输入并将数据框保存到另一个数据框中以便在代码中进一步使用

 comp.name <- readline(prompt = "Enter the company name: ")
 getSymbols(comp.name , src = "yahoo", verbose = TRUE, from = "2018-03-01")
 tyu2 <- as.data.frame(comp.name)

我没有取回数据，只有一个具有单个因子值的数据框。请提出一些建议。进一步的代码是这样的

tyu <- tyu2$(comp.name).Open
x <- row.names(tyu2)
final <- length(tyu)
final <- as.numeric(final)
p <- ggplot(data = tyu2 , aes(x= x ,y=tyu))+geom_bar(stat = "identity", fill = "blue")+ theme(axis.text.x = element_text(angle = 90))
p

这可能是一个愚蠢的错误。我对 R 很陌生。谢谢。

Answer 1

要防止在创建 data.frame 时将字符向量转换为因子，请在创建 data.frame 时使用 stringsAsFactors = FALSE。

 tyu2 <- as.data.frame(comp.name, stringsAsFactors = FALSE)

Answer 2

getSymbols auto 默认将返回值分配给全局环境，这意味着您将获得一个与您查询的公司同名的对象。要停止该行为，请将 auto.assign 设置为 FALSE。这样，你就可以自己将返回值赋值给一个对象了：

comp.name <- readline(prompt = "Enter the company name: ")
tyu2 <- getSymbols(comp.name ,
                   src = "yahoo",
                   verbose = TRUE,
                   from = "2018-03-01",
                   auto.assign = FALSE)
tyu2 <- as.data.frame(tyu2)

return `getSymbols()` 的输出作为数据框

return the output of `getSymbols()` as a data frame

r

readline

zoo

xts

quantmod