如何舍入R中具有一些非数字变量的数据框？

Question

I got some decimals in 'mydata2'. So, I want to round only numeric variables in mydata2. I have tried some methods like 'use purrr' or 'dplyr' etcs but I couldn't get it. How to I get it?

   setwd("D:/데이터 사이언스/새 폴더") 
    mydata <- read.csv("Remote Learning.csv", header = TRUE) 
    mydata 
    
    mydata2 <- aggregate(학업.기여도~학교.유형 , mydata, mean)
    
    library(ggplot2) 
    
    ggplot(data=mydata2, aes(x = 학교.유형, y = 학업.기여도, fill = 학교.유형)) +geom_bar(stat = "identity", aes(color = 학교.유형)) 

Answer 1

This should work if the variables are numeric indeed (you have to rename your columns I suppose as there are some limitations for column names in R):

library(dplyr)

df %>% 
  dplyr::select(col1 = 1, col2 = 2) %>% # enter all the columns you have and some simple names without special characters
  dplyr::mutate_if(is.numeric, ~ round(., 0))