は、私は、次のデータフレームDATを持っている最初の単語

Question

を抽出します。

brand (column name) 
Channel 
Gucci 
Channel 
LV 
LV 

以下のコードでサブを使用しようとしましたが、機能しません。私のコードが間違っているのを助けてください。

brand <- sub("(\\w+).*", "\\1", dat$brand) 

Answer 1

これはそれを行う必要があります。

dat <- data.frame(Brand = c('Channel clothes', 
          'Gucci perfume', 
          'Channel shoes', 
          'LV purses', 
          'LV scarves')) 
brand <- sub('(^\\w+)\\s.+','\\1',dat$Brand) 
#[1] "Channel" "Gucci" "Channel" "LV"  "LV" 

Answer 2

私はtidyverseアプローチを推奨します。返し

df %>% 
    separate(brand, into = c("brand", "item"), sep = " ") 

：：私たちは次のように列を分離することができます

library(tidyverse) 

df <- tribble(
    ~brand, 
    "Channel clothes", 
    "Gucci perfume", 
    "Channel shoes", 
    "LV purses", 
    "LV scarves" 
) 

：このデータセットでは

は

# A tibble: 5 x 2 
    brand item 
* <chr> <chr> 
1 Channel clothes 
2 Gucci perfume 
3 Channel shoes 
4  LV purses 
5  LV scarves 

Answer 3

は、我々は使用することができますwordstringr

から

library(stringr) 
word(df$brand, 1) 
#[1] "Channel" "Gucci" "Channel" "LV"  "LV"