# 조작 편의성을 위해 열 이름을 소문자로 변환(결과 출력하지 않음)
colnames(customer_r) <- tolower(colnames(customer_r))-----Ctrl+Enter
colnames(reservation_r) <- tolower(colnames(reservation_r))-----Ctrl+Enter
colnames(order_info_r) <- tolower(colnames(order_info_r))-----Ctrl+Enter
colnames(item_r) <- tolower(colnames(item_r))-----Ctrl+Enter

# 열 이름이 소문자로 변환되었는지 확인(결과 출력)
head(customer_r)-----Ctrl+Enter

# A tibble: 6 x 9
customer_id customer_name phone_number email first_reg_date sex_code birth job zip_code-----열 이름이 소문자로 변환됩니다.
   <chr>     <chr>   <chr>          <chr>               <chr>    <chr>  <chr>     <chr>   <chr>
1  W1346506  고객71  010-1111-1181  scust71@sfnb.co.kr  19/09/01  F     19820922  자영업  122100
2  W1347648  고객72  010-1111-1182  scust72@sfnb.co.kr  19/09/04  M     19940812  학생    140100
3  W1347756  고객73  010-1111-1183  scust73@sfnb.co.kr  19/09/05  M     19931217  NA      152100
4  W1347984  고객74  010-1111-1184  scust74@sfnb.co.kr  19/09/06  M     19810822  자영업  130100
5  W1348303  고객75  010-1111-1185  scust75@sfnb.co.kr  19/09/07  M     19900611  NA      121100
6  W1348424  고객76  010-1111-1186  scust76@sfnb.co.kr  19/09/08  M     19730422  NA      139100