a <-summarize(group_by(dat_KOR14_16,SIGUN,LCLASSNAME,MCLASSNAME),AVG_PRICE=mean(AVG_
PRICE))

a <- summarize(group_by(a,LCLASSNAME,MCLASSNAME),AVG_PRICE=mean(AVG_PRICE))
a
# A tibble: 505 x 3
# Groups:   LCLASSNAME [?]
   LCLASSNAME MCLASSNAME  AVG_PRICE
        <chr>      <chr>      <dbl>
 1       농업       가랏   4187.569
 2       농업   가오리포 101000.000
 3       농업   가죽나물   9875.621
 4       농업       가지   9246.471
 5       농업 가지나무순   5815.374
 6       농업     갈치포  56231.905
 7       농업       감귤  12722.828
 8       농업       감자  14765.841
 9       농업       감초  34916.667
10       농업         갓   5183.005
# ... with 495 more rows
> a <-summarize(group_by(dat_KOR14_16,LCLASSNAME,MCLASSNAME),AVG_PRICE=mean(AVG_PRICE))
> a
# A tibble: 505 x 3
# Groups:   LCLASSNAME [?]
   LCLASSNAME MCLASSNAME  AVG_PRICE
        <chr>      <chr>      <dbl>
 1       농업       가랏   3938.466
 2       농업   가오리포 101000.000
 3       농업   가죽나물   8957.503
 4       농업       가지  10400.846
 5       농업 가지나무순   2005.054
 6       농업     갈치포  40501.212
 7       농업       감귤  12928.582
 8       농업       감자  16416.196
 9       농업       감초  41642.857
10       농업         갓   7333.404
# ... with 495 more rows

DATES AVG_PRICE LCLASSNAME MCLASSNAME      SIDO     SIGUN
1 20140425     30420       농업     양상추   서울   중구

No  LCLASSNAME  MCLASSNAME  TOTAL   SIDO1   SIGUN1  SIGUN2  SIGUN3  SIGUN4  SIGUN5  SIGUN6  SIGUN7  SIGUN8  SIGUN9  SIGUN10 SIGUN11 SIGUN12 SIGUN13 SIGUN14 SIGUN15 SIGUN16 SIGUN17 SIGUN18
1       농업   가죽나물  함양군    3393.333  익산시        7550      0      0      0  24025   3000      0   4000      0   7550      0      0
2       농업   가죽나물  함양군    3393.333  남원시       24025      0      0      0  24025   3000      0   4000      0   7550      0      0