如何在 R 的列中添加第一个数字

Question

Lets say we have the following df

letter   number
a         10
b         11

and I wanted to add only the first number in a column. How would you do that

Result

= number column should have a sum of two ( 1 0 + 1 1) = 2

Answer 1

A faster option is to get the substring , convert to numeric and get the sum

with(df, sum(as.numeric(substring(number, 1, 1))))
[1] 2

Or we may use

with(df, sum(number %/% 10))
[1] 2

Answer 2

Using tidyverse :

library(tidyverse)

set.seed(111)

df <- tibble(letter = letters[1:10], number = sample(1:100, 10))

summarise(df, sum_first = str_sub(number, 1, 1) %>%
                           as.numeric() %>% 
                            sum() )
#> # A tibble: 1 × 1
#>   sum_first
#>       <dbl>
#> 1        52

^{Created on 2021-11-24 by the reprex package (v2.0.1)}

Answer 3

Substitute x here for you column (eg df$v2 ). This creates a list of the digits within each element, then extracts the first and sums them.

sum(sapply(strsplit(as.character(x), ""), function(i){as.numeric(i[1])}))