Как разделить фрейм данных и извлечь определенный шаблон?

Question

Я извлек первую строку кадра данных

> top_row 
Date EUR/USD Close USD/JPY Close USD/CHF Close GBP/USD Close EUR/GBP Close EUR/JPY Close EUR/CHF Close GBP/JPY Close GBP/CHF Close

Первый столбец - 'Date', второй столбец - 'EUR/USD Close' и т. Д. Теперь я хочу извлечь EUR, JPY, USD, GBP и CHF, то есть разные валюты. Я пытался использовать strsplit(), но он не работает, так как это датафрейм.

Пожалуйста, ведите меня дальше.Спасибо

Answer 1

Я согласен с комментарием Прасада. Похоже, это не имеет никакого отношения к data.frames. Кажется, вы просто хотите извлечь вещи из вектора символов:

curr_pairs <- gsub(" Close","",top_row[-1])
unique_curr <- unique(unlist(strsplit(curr_pairs,"\\/")))
# [1] "EUR" "USD" "JPY" "CHF" "GBP"