# Create df1 data frame with names H01, H02, H03, etc.
df1 <- data.frame(name = paste0("H0", 1:4), R01 = c(2, 4, 6, 8), R02 = c(4, 8, 12, 16), R03 = c(6, 12, 18, 24))

# Create df2 data frame
df2 <- data.frame(name = paste0("R0", 1:4), area = c(2, 4, 6, 8))

# Add new columns to df1 data frame
df1[as.character(df2$name)] <- df1[, 2:4] * df2[, 2]

# View the df1 data frame
print(df1)