R studioを使って、headerのスペース前の苗字ごとに収入の合計値をまとめたいです。

Question

実現したいこと

RStudioを使って、苗字ごと(headerのスペース前のSuzuki, Fujita, Ooshima)に
Income_Janualyの合計値とIncome_Februalyの合計値を求めたいです。

前提

該当のソースコード

library(haven)
library(readxl)
library(tidyverse)

name <- c("Suzuki Yuta", "Suzuki Keiko", "Suzuki Koko", "Fujita Takashi", "Fujita Miki", "Fujita Tomoka ", "Ooshima Kiyo", "Ooshima Ken")
Income_Janualy <- c(43, 74, 80, 37, 20, 83, 64, 35)
Income_Februaly <- c(55, 70, 82, 40, 22, 23, 60, 30)
df1 <- tibble(name, Income_Janualy, Income_Feburualy)
test <- t(df1)
colnames(test) <- df1$name
df2 <- test[-1, ]

試したこと

df2 %>%
group_by(name) %>%
summarize(Total_Income_January = sum(Income_Janualy))

Headerでなければ、上記でうまくいきましたが、nameをheaderにしてしまうと、やり方がわかりません。
どなたか、ご教授いただけると幸いです。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

ありがとうございます！とても助かりました。一発で変換できました。今後ともよろしくお願い申し上げます。

Answer 2

suppressMessages(library(tidyverse))

name <- c("Suzuki Yuta", "Suzuki Keiko", "Suzuki Koko", "Fujita Takashi", "Fujita Miki", "Fujita Tomoka", "Ooshima Kiyo", "Ooshima Ken")
Income_January <- c(43, 74, 80, 37, 20, 83, 64, 35)
Income_February <- c(55, 70, 82, 40, 22, 23, 60, 30)
df1 <- tibble(name, Income_January, Income_February)

df2 <- df1 %>%
  group_by(last_name = sub('^(.+?) .+$', '\\1', name)) %>%
  summarize(
    Total_Income_January = sum(Income_January),
    Total_Income_February = sum(Income_February))

df2

# A tibble: 3 × 3
#   last_name Total_Income_January Total_Income_February
#   <chr>                    <dbl>                 <dbl>
# 1 Fujita                     140                    85
# 2 Ooshima                     99                    90
# 3 Suzuki                     197                   207