如何对R中的一列数据进行标准化，并得到贝尔曲线直方图，以确定某个范围内的百分比？

library(ggplot2)
library(dplyr)

data <- data %>% mutate(column_standardized = scale(column))

ggplot(data, aes(x = column_standardized)) +
  geom_histogram(binwidth = 0.2, aes(y = ..density..)) +
  geom_density(color = "red") +
  labs(x = "Standardized Values", y = "Density") +
  theme_minimal()

percentage <- data %>% 
  filter(column_standardized >= -1 & column_standardized <= 1) %>%
  summarize(percentage = n() / nrow(data) * 100)

library(ggplot2)
library(dplyr)

data <- data %>% mutate(column_standardized = scale(column))

ggplot(data, aes(x = column_standardized)) +
  geom_histogram(binwidth = 0.2, aes(y = ..density..)) +
  geom_density(color = "red") +
  labs(x = "Standardized Values", y = "Density") +
  theme_minimal()

percentage <- data %>% 
  filter(column_standardized >= -1 & column_standardized <= 1) %>%
  summarize(percentage = n() / nrow(data) * 100)