Боюсь, это невозможно, потому что контент не является атрибутом и недоступен через псевдокласс. Полный список селекторов CSS3 можно найти в спецификации CSS3 .
Чтобы ответить на мой вопрос, спасибо комментарию от @Noah в этом вопросе и к некоторым указаниям из @MrFlick в вопросе, который я разместил здесь здесь .
Следующий код, кажется, получает то, что я хочу.
Ra <- c("AMZN","FB","GOOG", "NFLX") %>%
tq_get(get = "stock.prices",
from = "2013-01-01",
to = "2016-12-31")
Rb <- "SPY" %>%
tq_get(get = "stock.prices",
from = "2013-01-01",
to = "2016-12-31")
stock_returns_daily <- Ra
benchmark_returns_daily <- Rb
RaRb <- left_join(stock_returns_daily, benchmark_returns_daily, by = c("date" = "date"))
normalise_series <- function(xdat) xdat / coredata(xdat)[1]
RaRb <- RaRb %>%
group_by(symbol) %>%
select(symbol, date, adjusted.x, adjusted.y) %>%
mutate(adj.x = normalise_series(adjusted.x)) %>%
mutate(adj.y = normalise_series(adjusted.y))
RaRb %>%
ggplot(aes(x = date)) +
geom_line(aes(y = adj.x -1), color = "red") +
geom_line(aes(y = adj.y -1), linetype = "dashed") +
labs(title = "Daily Stock Prices",
x = "", y = "Adjusted Prices", color = "") +
facet_wrap(~ symbol, ncol = 2, scales = "free_y") +
scale_y_continuous(labels = scales::dollar) +
theme_tq() +
scale_color_tq()
Какой из этих выходов:
Теперь NFLX
идентичен первому графику в исходном сообщении.