什么都不替换子串

Question

我怎样才能用_开头替换所有内容？

这是一个简单的数据框

d <- data.frame(a = c("A_foo1", "B_foo2", " _foo3"))

我希望看起来像：

a
A
B
" "

Answer 1

a <- c("A_foo1", "B_foo2", " _foo3")
gsub("_.*", "", a)
#[1] "A" "B" " "