Какая функция R отправляет вывод в новый вектор?
Вопрос
Предположим, у меня есть данные. Frame назван TLT, последняя строка, в этом:
TLT.Open TLT.Close
2010-12-14 92.4 92.14
И я хочу добавить дополнительный вектор под названием TLT.Barcolor, так что похоже на это:
TLT.Open TLT.Close TLT.BarColor
2010-12-14 92.4 92.14 "Green"
Вот функция, которая «печатает», будь то день зеленого или красного бар.
bar_color <- function(ticker) {
require("quantmod")
x <- getSymbols(ticker, auto.assign=FALSE)
open <- x[,1]
close <- x[,2]
last_open <- tail(open, n=1)
last_close <- tail(close, n=1)
if (last_open > last_close)
{print("Red Bar")}
else if (last_open < last_close)
{print("Green Bar")}
else {print("Doji Bar")}
Вместо использования функции print () r (которая только печатается для консоли), какую функцию R вы бы использовали для отправки вывода для заполнения нового вектора?
super_dataframe <- cbind(TLT, apply(TLT, 1, valid_function))
Образец функции не работает в этом решении. Но если бы функция была действительной, ее вывод мог быть подключен таким образом.
Решение
ticker
Не может быть данных, но должен быть персонажем. Таким образом, с применением, которое вы используете для создания вашей кадры Super Data, у вас будет проблема. Следующая функция дает метки для разных тикеров.
bar_color <- function(ticker){
x <- getSymbols(ticker,auto.assign=FALSE)
n <- nrow(x)
switch(
sign(x[n,1]-x[n,4])+2,
"Green Bar",
"Doji Bar",
"Red Bar")
}
> TLT <- c("F","QQQQ")
> cbind(TLT,sapply(TLT,bar_color))
TLT
F "F" "Green Bar"
QQQQ "QQQQ" "Red Bar"
Если вам нужны этикетки для одного тикера, но разные даты, то это то, что вы ищете:
bar_color <- function(ticker){
x <- as.data.frame(getSymbols(ticker,auto.assign=FALSE))
x$barcolor <- sapply(
as.numeric(sign(x[,1]-x[,4])+2),
function(j) switch(j,"Green Bar","Doji Bar","Red Bar")
)
return(x)
}
> head(bar_color("F"))
F.Open F.High F.Low F.Close F.Volume F.Adjusted barcolor
2007-01-03 7.56 7.67 7.44 7.51 78652200 7.51 Red Bar
2007-01-04 7.56 7.72 7.43 7.70 63454900 7.70 Green Bar
2007-01-05 7.72 7.75 7.57 7.62 40562100 7.62 Red Bar
2007-01-08 7.63 7.75 7.62 7.73 48938500 7.73 Green Bar
2007-01-09 7.75 7.86 7.73 7.79 56732200 7.79 Green Bar
2007-01-10 7.79 7.79 7.67 7.73 42397100 7.73 Red Bar
Проблема, которую вы, по -видимому, - это тот факт, что Getsymbols не возвращает вам DataFrame, а объект XTS. Для XTS есть конкретные методы для доступа и добавления данных, и не следует ожидать, что это будет вести себя как кадр данных.
> X <- getSymbols("F",auto.assign=FALSE)
> class(X)
[1] "xts" "zoo"
Другие советы
Если вы изменили операторы печати на просто сам вектор символов, например, «Красная полоса», вы можете добавить это к существующему вектору, такому как последний ряд. Это может быть более четким кодом, если вы замените return () на print () 's. Единственная проблема заключается в том, что вектор должен быть из того же режима, поэтому вам необходимо принять вектор символов или использовать Data One Line.Frame.
vec <- c(TLT[NROW(TLT), ] , bar.color( "TLT") ) # a character vector
onerowdf <- cbind( TLT[NROW(TLT), ], bar.color( "TLT")) )
# a data.frame (aka list)