fill the na data in mean value in r

# Create a sample data frame
data <- data.frame(x = c(1, 2, NA, 4, 5, NA, 7, 8, 9))

# Calculate the mean of the non-NA values
mean_value <- mean(data$x, na.rm = TRUE)

# Fill the NA values with the mean
data$x[is.na(data$x)] <- mean_value