{"id":396,"date":"2023-03-22T13:10:05","date_gmt":"2023-03-22T13:10:05","guid":{"rendered":"https:\/\/yunshangtulv.com.cn\/?p=396"},"modified":"2023-03-22T13:10:05","modified_gmt":"2023-03-22T13:10:05","slug":"r%e8%af%ad%e8%a8%80%e4%b8%adexcel%e6%96%87%e4%bb%b6%e4%bd%bf%e7%94%a8%e8%af%a6%e8%a7%a3%e5%8f%8a%e5%ba%94%e7%94%a8%e5%ae%9e%e4%be%8b","status":"publish","type":"post","link":"https:\/\/yunshangtulv.com.cn\/?p=396","title":{"rendered":"R\u8bed\u8a00\u4e2dexcel\u6587\u4ef6\u4f7f\u7528\u8be6\u89e3\u53ca\u5e94\u7528\u5b9e\u4f8b"},"content":{"rendered":"

\u5728 R \u8bed\u8a00\u4e2d\uff0c\u5904\u7406 Excel \u6587\u4ef6\u4e3b\u8981\u6d89\u53ca\u5230\u8bfb\u53d6\u3001\u5199\u5165\u548c\u64cd\u4f5c\u6570\u636e\u3002\u4ee5\u4e0b\u662f\u4f7f\u7528 R \u8bed\u8a00\u5904\u7406 Excel \u6587\u4ef6\u7684\u8be6\u89e3\u548c\u5e94\u7528\u5b9e\u4f8b\u3002<\/p>\n

\u5b89\u88c5\u548c\u52a0\u8f7d\u6240\u9700\u7684\u5305\uff1a<\/h2>\n

\u9996\u5148\uff0c\u786e\u4fdd\u5b89\u88c5\u5e76\u52a0\u8f7d\u5fc5\u8981\u7684\u5305\u3002\u8fd9\u91cc\u6211\u4eec\u4f7f\u7528 readxl<\/code> \u548c writexl<\/code> \u5305\u6765\u8bfb\u53d6\u548c\u5199\u5165 Excel \u6587\u4ef6\uff0c\u4ee5\u53ca dplyr<\/code> \u5305\u8fdb\u884c\u6570\u636e\u64cd\u4f5c\u3002<\/p>\n

\n
install.packages(<\/span>\"readxl\"<\/span>)<\/span>
\ninstall.packages(<\/span>\"writexl\"<\/span>)<\/span>
\ninstall.packages(<\/span>\"dplyr\"<\/span>)<\/span><\/p>\n

library(<\/span>readxl)<\/span>
\nlibrary(<\/span>writexl)<\/span>
\nlibrary(<\/span>dplyr)<\/span>
\n<\/code><\/div>\n<\/div>\n

\u8bfb\u53d6 Excel \u6587\u4ef6\uff1a<\/h2>\n

\u4f7f\u7528 read_excel()<\/code> \u51fd\u6570\u8bfb\u53d6 Excel \u6587\u4ef6\u3002<\/p>\n

\n
<\/div>\n
file_path <-<\/span> \"path\/to\/your\/excel\/file.xlsx\"<\/span>
\ndata <-<\/span> read_excel(<\/span>file_path)<\/span><\/code><\/div>\n<\/div>\n
<\/div>\n
\n
# \u6307\u5b9a\u5de5\u4f5c\u8868\u548c\u533a\u57df\r\ndf <- read_excel(\"path\/to\/file.xlsx\", sheet = \"Sheet1\", range = \"A1:D10\")\r\n\r\n# \u8bfb\u53d6\u591a\u4e2a\u5de5\u4f5c\u8868\r\ndf_list <- lapply(excel_sheets(\"path\/to\/file.xlsx\"), function(x) read_excel(\"path\/to\/file.xlsx\", sheet = x))<\/code><\/pre>\n
 <\/p>\n<\/div>\n
\u64cd\u4f5c Excel \u6570\u636e\uff1a<\/h2>\n
\u4f7f\u7528 dplyr<\/code> \u5305\u4e2d\u7684\u51fd\u6570\u5bf9\u6570\u636e\u8fdb\u884c\u64cd\u4f5c\u3002\u4ee5\u4e0b\u662f\u4e00\u4e9b\u793a\u4f8b\uff1a<\/p>\n
    \n
  1. \n
    \u7b5b\u9009\u6570\u636e\uff1a<\/h3>\n<\/li>\n<\/ol>\n
    \n
    <\/div>\n
    filtered_data <-<\/span> data %>%<\/span>
    \n  filter(<\/span>column_name ==<\/span> \"value\"<\/span>)<\/span>
    \n<\/code><\/div>\n<\/div>\n
      \n
    1. \n
      \u9009\u62e9\u5217\uff1a<\/h3>\n<\/li>\n<\/ol>\n
      \n
      <\/div>\n
      selected_data <-<\/span> data %>%<\/span>
      \n  select(<\/span>column_name1,<\/span> column_name2)<\/span>
      \n<\/code><\/div>\n<\/div>\n
        \n
      1. \n
        \u5bf9\u6570\u636e\u8fdb\u884c\u6392\u5e8f\uff1a<\/h3>\n<\/li>\n<\/ol>\n
        \n
        <\/div>\n
        sorted_data <-<\/span> data %>%<\/span>
        \n  arrange(<\/span>column_name)<\/span>
        \n<\/code><\/div>\n<\/div>\n
          \n
        1. \n
          \u5bf9\u6570\u636e\u8fdb\u884c\u6c47\u603b\uff1a<\/h3>\n<\/li>\n<\/ol>\n
          \n
          summarized_data <-<\/span> data %>%<\/span>
          \n  group_by(<\/span>column_name)<\/span> %>%<\/span>
          \n  summarize(<\/span>count =<\/span> n(<\/span>)<\/span>)<\/span>
          \n<\/code><\/div>\n<\/div>\n
          \u5199\u5165 Excel \u6587\u4ef6\uff1a<\/h2>\n
          \u5c06\u6570\u636e\u5199\u5165\u65b0\u7684 Excel \u6587\u4ef6\u3002<\/p>\n
          \n
          <\/div>\n
          write_xlsx(<\/span>data,<\/span> \"path\/to\/output\/file.xlsx\"<\/span>)<\/span>
          \n<\/code><\/div>\n<\/div>\n
          \u5e94\u7528\u5b9e\u4f8b\uff1a<\/h2>\n
          \u5047\u8bbe\u60a8\u6709\u4e00\u4e2a\u540d\u4e3a \"sales_data.xlsx\" \u7684 Excel \u6587\u4ef6\uff0c\u5176\u4e2d\u5305\u542b\u4ee5\u4e0b\u5217\uff1a<\/p>\n
            \n
          • product_id<\/li>\n
          • product_name<\/li>\n
          • price<\/li>\n
          • quantity<\/li>\n
          • date<\/li>\n<\/ul>\n
            \u60a8\u60f3\u8981\u7b5b\u9009\u51fa 2022 \u5e74\u7684\u9500\u552e\u6570\u636e\uff0c\u5e76\u6309\u4ea7\u54c1\u7c7b\u522b\u8fdb\u884c\u6c47\u603b\u3002<\/p>\n
            \n
            <\/div>\n
            # \u8bfb\u53d6\u6587\u4ef6<\/span>
            \nfile_path <-<\/span> \"path\/to\/sales_data.xlsx\"<\/span>
            \ndata <-<\/span> read_excel(<\/span>file_path)<\/span><\/p>\n
            # \u7b5b\u9009 2022 \u5e74\u6570\u636e<\/span>
            \ndata_2022 <-<\/span> data %>%<\/span>
            \n  filter(<\/span>year(<\/span>date)<\/span> ==<\/span> 2022<\/span>)<\/span><\/p>\n
            # \u6309\u4ea7\u54c1\u7c7b\u522b\u6c47\u603b<\/span>
            \nsummary_data <-<\/span> data_2022 %>%<\/span>
            \n  group_by(<\/span>product_name)<\/span> %>%<\/span>
            \n  summarize(<\/span>total_sales =<\/span> sum<\/span>(<\/span>price *<\/span> quantity)<\/span>)<\/span><\/p>\n
            # \u5c06\u6c47\u603b\u6570\u636e\u5199\u5165\u65b0\u7684 Excel \u6587\u4ef6<\/span>
            \nwrite_xlsx(<\/span>summary_data,<\/span> \"path\/to\/output\/summary_data.xlsx\"<\/span>)<\/span>
            \n<\/code><\/div>\n<\/div>\n
             <\/p>\n","protected":false},"excerpt":{"rendered":"
            \u5728 R \u8bed\u8a00\u4e2d\uff0c\u5904\u7406 Excel \u6587\u4ef6\u4e3b\u8981\u6d89\u53ca\u5230\u8bfb\u53d6\u3001\u5199\u5165\u548c\u64cd\u4f5c\u6570\u636e\u3002\u4ee5\u4e0b\u662f\u4f7f\u7528 R \u8bed\u8a00\u5904\u7406 Excel \u6587 […]<\/p>\n","protected":false},"author":111,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[9],"tags":[],"class_list":["post-396","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/396","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/users\/111"}],"replies":[{"embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=396"}],"version-history":[{"count":0,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=\/wp\/v2\/posts\/396\/revisions"}],"wp:attachment":[{"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=396"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=396"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/yunshangtulv.com.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=396"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}