{"id":3883,"date":"2024-12-09T14:09:10","date_gmt":"2024-12-09T05:09:10","guid":{"rendered":"https:\/\/secondlife.lol\/?p=3883"},"modified":"2024-12-07T14:37:40","modified_gmt":"2024-12-07T05:37:40","slug":"martial-law-exchange-rate-r-visualization","status":"publish","type":"post","link":"https:\/\/secondlife.lol\/zh\/martial-law-exchange-rate-r-visualization\/","title":{"rendered":"\u6212\u4e25 45 \u5e74\u540e\u7684\u6c47\u7387\u51b2\u51fb\uff1a\u5229\u7528 R \u53ef\u89c6\u5316\u751f\u6210\u7f8e\u5143\u6c47\u7387\u56fe"},"content":{"rendered":"<p class=\"wp-block-paragraph\">2024 \u5e74 12 \u6708 3 \u65e5\u665a\u4e0a 10 \u70b9 27 \u5206\uff0c\u97e9\u56fd\u5ba3\u5e03\u6212\u4e25\uff0c\u91d1\u878d\u5e02\u573a\u53d7\u5230\u5e72\u6270\u3002 \u6212\u4e25\u662f\u653f\u5e9c\u5728\u56fd\u5bb6\u7d27\u6025\u72b6\u6001\u4e0b\u901a\u8fc7\u519b\u4e8b\u7ba1\u5236\u7ef4\u6301\u79e9\u5e8f\u7684\u4e00\u79cd\u63aa\u65bd\uff0c\u4f1a\u5bf9\u7ecf\u6d4e\u4ea7\u751f\u91cd\u5927\u5f71\u54cd\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u5728\u672c\u7bc7\u6587\u7ae0\u4e2d\uff0c\u6211\u4eec\u5c06\u5206\u4eab\u4f7f\u7528 R \u53ef\u89c6\u5316\u65b9\u6cd5\u5206\u6790\u6212\u4e25\u4ee4\u5bf9\u6c47\u7387\u7684\u5f71\u54cd\u5e76\u751f\u6210\u97e9\u5143\u6c47\u7387\u56fe\u7684\u8fc7\u7a0b\u3002\u8fd9\u5c06\u5e2e\u52a9\u60a8\u5b9a\u91cf\u4e86\u89e3\u6212\u4e25\u4ee4\u7684\u7ecf\u6d4e\u5f71\u54cd\uff0c\u5e76\u5e2e\u52a9\u60a8\u601d\u8003\u672a\u6765\u7684\u5e94\u5bf9\u63aa\u65bd\u3002<\/p>\n\n\n<style>.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap{padding-top:var(--global-kb-spacing-sm, 1.5rem);padding-right:var(--global-kb-spacing-sm, 1.5rem);padding-bottom:var(--global-kb-spacing-sm, 1.5rem);padding-left:var(--global-kb-spacing-sm, 1.5rem);border-top:3px solid var(--global-palette2, #2B6CB0);border-right:3px solid var(--global-palette2, #2B6CB0);border-bottom:3px solid var(--global-palette2, #2B6CB0);border-left:3px solid var(--global-palette2, #2B6CB0);border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;box-shadow:0px 0px 14px 0px rgba(0, 0, 0, 0.2);}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title-wrap{padding-top:0px;padding-right:0px;padding-bottom:0px;padding-left:0px;}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title-wrap{color:var(--global-palette2, #2B6CB0);}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title{color:var(--global-palette2, #2B6CB0);font-size:28px;font-weight:regular;font-style:normal;}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap .kb-table-of-content-list{color:var(--global-palette1, #3182CE);line-height:2em;font-weight:regular;font-style:normal;margin-top:var(--global-kb-spacing-sm, 1.5rem);margin-right:0px;margin-bottom:0px;margin-left:0px;}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap .kb-table-of-content-list .kb-table-of-contents__entry:hover{color:var(--global-palette6, #718096);}@media all and (max-width: 1024px){.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap{border-top:3px solid var(--global-palette2, #2B6CB0);border-right:3px solid var(--global-palette2, #2B6CB0);border-bottom:3px solid var(--global-palette2, #2B6CB0);border-left:3px solid var(--global-palette2, #2B6CB0);}}@media all and (max-width: 1024px){.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title{font-size:28px;}}@media all and (max-width: 767px){.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-content-wrap{border-top:3px solid var(--global-palette2, #2B6CB0);border-right:3px solid var(--global-palette2, #2B6CB0);border-bottom:3px solid var(--global-palette2, #2B6CB0);border-left:3px solid var(--global-palette2, #2B6CB0);}.kb-table-of-content-nav.kb-table-of-content-id83_5f28a6-34 .kb-table-of-contents-title{font-size:28px;}}<\/style>\n\n<style>.kb-image3883_223fbd-74 .kb-image-has-overlay:after{opacity:0.3;border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;}.kb-image3883_223fbd-74 img.kb-img, .kb-image3883_223fbd-74 .kb-img img{border-top-left-radius:5px;border-top-right-radius:5px;border-bottom-right-radius:5px;border-bottom-left-radius:5px;box-shadow:0px 0px 14px 0px rgba(0, 0, 0, 0.2);}<\/style>\n<div class=\"wp-block-kadence-image kb-image3883_223fbd-74\"><figure class=\"aligncenter size-medium_large\"><img decoding=\"async\" width=\"768\" height=\"415\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/826AD1E9-32BE-4487-A3ED-00BEB5E35CA7-768x415.jpg\" alt=\"R\ub85c \uc2dc\uac01\ud654\ud55c \uacc4\uc5c4\ub839 \ubc1c\ud45c\ud6c4 \uc6d0\ub2ec\ub7ec \ud658\uc728 \uadf8\ub798\ud504\" class=\"kb-img wp-image-3886\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/826AD1E9-32BE-4487-A3ED-00BEB5E35CA7-768x415.jpg 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/826AD1E9-32BE-4487-A3ED-00BEB5E35CA7-300x162.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/826AD1E9-32BE-4487-A3ED-00BEB5E35CA7-600x325.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/826AD1E9-32BE-4487-A3ED-00BEB5E35CA7-18x10.jpg 18w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/826AD1E9-32BE-4487-A3ED-00BEB5E35CA7.jpg 1200w\" sizes=\"(max-width: 768px) 100vw, 768px\" \/><figcaption>(\u4ee5 R \u8bed\u8a00\u663e\u793a\u7684\u7f8e\u5143\u6c47\u7387\u56fe\uff09<\/figcaption><\/figure><\/div>\n\n\n\n<h2 class=\"wp-block-heading\">1. \u5b89\u88c5\u5e76\u52a0\u8f7d\u6240\u9700\u7684\u8f6f\u4ef6\u5305<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u9996\u5148\uff0c\u6211\u4eec\u5b89\u88c5\u5e76\u52a0\u8f7d\u5bfc\u5165\u548c\u53ef\u89c6\u5316\u6570\u636e\u6240\u9700\u7684 R \u8f6f\u4ef6\u5305\u3002\u5982\u679c\u5728\u52a0\u8f7d\u4e4b\u524d\u6ca1\u6709\u5b89\u88c5\u8fd9\u4e9b\u8f6f\u4ef6\u5305\uff0c\u5219\u5728\u8fd0\u884c\u4ee3\u7801\u65f6\u63a7\u5236\u53f0\u4f1a\u63d0\u793a\u9700\u8981\u5b89\u88c5\u3002\u5f88\u53ef\u80fd\u4f60\u6ca1\u6709\u5b89\u88c5 alphavantager\uff0c\u6240\u4ee5\u4f60\u53ef\u4ee5\u4f7f\u7528\u4e0b\u9762\u6e90\u4ee3\u7801\u4e2d\u7684 install.packages \u547d\u4ee4\u6765\u5b89\u88c5\u7f3a\u5c11\u7684\u8f6f\u4ef6\u5305\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u5b89\u88c5\u5e76\u52a0\u8f7d\u6240\u9700\u7684\u8f6f\u4ef6\u5305\n# install.packages(\"alphavantager\") # install.packages \u5b89\u88c5\u8f6f\u4ef6\u5305\u65f6\uff0c\u60a8\u4f1a\u6ce8\u610f\u5230\u8f6f\u4ef6\u5305\u540d\u79f0\u4e24\u4fa7\u6709\" Required\"\uff01\nlibrary(alphavantager)\nlibrary(dplyr)\nlibrary(ggplot2)\nlibrary(lubridate)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><strong><a href=\"https:\/\/www.alphavantage.co\/\" target=\"_blank\" rel=\"noopener\">\u963f\u5c14\u6cd5\u4f18\u52bf<\/a><\/strong>\"(\u300a\u4e16\u754c\u4eba\u6743\u5ba3\u8a00\u300b) <strong>\u80a1\u7968\u3001\u5916\u6c47\u548c\u52a0\u5bc6\u8d27\u5e01\u6570\u636e\u514d\u8d39 API<\/strong>\u7528\u6237\u3002\u7528\u6237\u4f7f\u7528\u7535\u5b50\u90ae\u4ef6\u6ce8\u518c\u540e\uff0c\u53ef\u83b7\u5f97\u4e00\u4e2a\u514d\u8d39\u7684 API \u5bc6\u94a5\u6765\u8bbf\u95ee\u6570\u636e\u3002API \u4ee5 JSON \u548c CSV \u683c\u5f0f\u63d0\u4f9b\u6570\u636e\uff0c\u5305\u62ec\u80a1\u7968\u65f6\u95f4\u5e8f\u5217\u6570\u636e\u3001\u516c\u53f8\u57fa\u672c\u4fe1\u606f\u3001\u6280\u672f\u6307\u6807\u7b49\u3002\u514d\u8d39 API \u6bcf\u5929\u6700\u591a\u5141\u8bb8 500 \u6b21\u8bf7\u6c42\uff0c\u6bcf\u5206\u949f\u6700\u591a\u5141\u8bb8 5 \u6b21\u8bf7\u6c42\uff0c\u5b9e\u65f6\u6570\u636e\u4ec5\u9650\u4e8e\u5916\u6c47\u548c\u52a0\u5bc6\u8d27\u5e01\u3002<\/li>\n<\/ul>\n\n\n\n<h2 class=\"wp-block-heading\">2. \u8bbe\u7f6e Alpha Vantage API \u5e76\u4e0b\u8f7d\u6570\u636e<\/h2>\n\n\n<style>.kb-image3883_0a3ce2-14 .kb-image-has-overlay:after{opacity:0.3;}<\/style>\n<div class=\"wp-block-kadence-image kb-image3883_0a3ce2-14\"><figure class=\"aligncenter size-large\"><a href=\"https:\/\/www.alphavantage.co\/\" class=\"kb-advanced-image-link\" target=\"_blank\" rel=\"noopener\"><img decoding=\"async\" width=\"600\" height=\"725\" src=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/Screenshot_20241207-1431102-1-600x725.jpg\" alt=\"Alpha Vantage website\" class=\"kb-img wp-image-3916\" srcset=\"https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/Screenshot_20241207-1431102-1-600x725.jpg 600w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/Screenshot_20241207-1431102-1-300x362.jpg 300w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/Screenshot_20241207-1431102-1-768x927.jpg 768w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/Screenshot_20241207-1431102-1-10x12.jpg 10w, https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/Screenshot_20241207-1431102-1.jpg 1200w\" sizes=\"(max-width: 600px) 100vw, 600px\" \/><\/a><figcaption>( <a href=\"https:\/\/www.alphavantage.co\/\" target=\"_blank\" rel=\"noopener\">\u963f\u5c14\u6cd5\u4f18\u52bf\u7f51\u7ad9<\/a> )<\/figcaption><\/figure><\/div>\n\n\n\n<p class=\"wp-block-paragraph\">\u4f7f\u7528 Alpha Vantage API \u4e0b\u8f7d\u6bcf\u5206\u949f\u6c47\u7387\u6570\u636e\u3002\u8981\u4f7f\u7528\u8be5 API <a href=\"https:\/\/secondlife.lol\/zh\/alpha-vantage-api-key-guide\/\">\u9700\u8981\u5df2\u53d1\u5e03\u7684 API \u5bc6\u94a5<\/a>\u7528\u4e8e\u4ee5\u4e0b\u65b9\u9762<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code># \u8bbe\u7f6e Alpha Vantage API \u5bc6\u94a5\nav_api_key(\"YOUR_ALPHA_VANTAGE_API_KEY\") # \u8f93\u5165\u53d1\u5e03\u7684 API \u5bc6\u94a5\n\n# \u4e0b\u8f7d\u6bcf\u5206\u949f\u6570\u636e\nsymbol &lt;- &quot;USDKRW&quot; # \u97e9\u5143\u6c47\u7387\u7b26\u53f7\ndata &lt;- av_get(\n  symbol = symbol\u3001\n  av_fun = &quot;TIME_SERIES_INTRADAY&quot;, # \u8bbe\u7f6e\u83b7\u53d6\u65e5\u5185\u6570\u636e\n  interval = &quot;1min&quot;, # \u4ee5 1 \u5206\u949f\u4e3a\u589e\u91cf\u7684\u65f6\u95f4\u95f4\u9694\n  outputsize = &quot;full&quot; # \u8bf7\u6c42\u5b8c\u6574\u6570\u636e\n)<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">3. \u6570\u636e\u9884\u5904\u7406<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u9884\u5904\u7406\u4e0b\u8f7d\u7684\u6570\u636e\uff0c\u5e76\u5c06\u5176\u8f6c\u6362\u6210\u9002\u5408\u5206\u6790\u7684\u5f62\u5f0f\u3002\u8fd9\u5305\u62ec\u65f6\u533a\u8f6c\u6362\u548c\u9009\u62e9\u6240\u9700\u7684\u5217\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>\u9884\u5904\u7406 # \u6570\u636e\uff08\u5305\u62ec UTC \u2192 KST \u8f6c\u6362\uff09\ndata_filtered %\n  select(timestamp, open, high, low, close) %&gt;% # \u9009\u62e9\u6240\u9700\u5217\n  mutate(timestamp = with_tz(timestamp, tzone = \"Asia\/Seoul\"))%&gt;% # UTC \u2192 KST \u8f6c\u6362\n  \u8fc7\u6ee4\n    timestamp &gt;= as.POSIXct(\"2024-12-03 00:00:00\", tz = \"Asia\/Seoul\") &amp; # KST \u5728 12 \u6708 3 \u65e5 0:00 \u4e4b\u540e\n      timestamp %\n  arrange(timestamp) # \u6309\u65f6\u95f4\u6233\u6392\u5e8f\n\n\u5904\u7406 # \u6570\u636e\u662f\u5426\u4e3a\u7a7a\nif (nrow(data_filtered) == 0) {\n  stop(\"No data available for the selected time range. Please check the API or time range.\")\n}<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">\u8ba1\u7b97\u5e73\u5747\u3001\u6700\u4f73\u548c\u6700\u5dee\u6c47\u7387<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u6839\u636e\u9884\u5904\u7406\u6570\u636e\u8ba1\u7b97\u5e73\u5747\u6c47\u7387\u3001\u6700\u4f73\u6c47\u7387\u548c\u6700\u5dee\u6c47\u7387\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>\u8ba1\u7b97 # \u5e73\u5747\u6c47\u7387\u3001\u6700\u9ad8\u6c47\u7387\u548c\u6700\u4f4e\u6c47\u7387\navg_rate &lt;- mean(data_filtered$close, na.rm = TRUE) # \u7528\u4e8e\u8ba1\u7b97\u5e73\u5747\u6c47\u7387\nmax_rate &lt;- max(data_filtered$high, na.rm = TRUE) # \u7528\u4e8e\u8ba1\u7b97\u6700\u9ad8\u6c47\u7387\nmin_rate &lt;- min(data_filtered$low, na.rm = TRUE) # \u7528\u4e8e\u8ba1\u7b97\u6700\u4f4e\u6c47\u7387<\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">5.\u7ed8\u5236\u7f8e\u5143\u6c47\u7387\u56fe<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\"><a href=\"https:\/\/secondlife.lol\/zh\/ggplot2-intro\/\" data-type=\"post\" data-id=\"3055\">ggplot<\/a>2 \u4ee5\u76f4\u89c2\u663e\u793a\u6c47\u7387\u6ce2\u52a8\u3002<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>\u53ef\u89c6\u5316 #\nggplot(data_filtered, aes(x = timestamp, y = close)) +\n  geom_line(color = \"steelblue\", size = 1.2) + # \u6c47\u7387\u53d8\u52a8\u6298\u7ebf\u56fe\n  geom_hline(yintercept = avg_rate, color = \"darkgreen\", linetype = \"dashed\", size = 1) + # \u5e73\u5747\u6c47\u7387\u6c34\u5e73\u7ebf\u56fe\n  geom_hline(yintercept = max_rate, color = \"red\", linetype = \"dotted\", size = 1) + # \u6700\u9ad8\u6c47\u7387\u6c34\u5e73\u7ebf\n  geom_hline(yintercept = min_rate, color = \"blue\", linetype = \"dotted\", size = 1) + # \u6700\u4f4e\u6c47\u7387\u6c34\u5e73\u7ebf\n  annotate(\"text\", x = max(data_filtered$timestamp), y = avg_rate\u3001\n           label = paste0(\"\u5e73\u5747\u503c\uff1a\"\uff0cround(avg_rate, 2))\uff0cvjust =-1\uff0c\u989c\u8272 = \"\u6df1\u7eff\u8272\") +\n  annotate(\"text\", x = max(data_filtered$timestamp), y = max_rate\u3001\n           label = paste0(\"Max: \", round(max_rate, 2)), vjust = -1, color = \"red\") +\n  annotate(\"text\", x = max(data_filtered$timestamp), y = min_rate\u3001\n           label = paste0(\"Min: \", round(min_rate, 2)), vjust = 2, color = \"blue\") +\n  labs(\n    title = \"2024 \u5e74 12 \u6708 3 \u65e5\u5348\u591c\uff08\u97e9\u56fd\u65f6\u95f4\uff09\u97e9\u5143\/\u7f8e\u5143\u6c47\u7387\"\u3001\n    subtitle = \"\u901a\u8fc7 Alpha Vantage API \u83b7\u53d6\u7684 1 \u5206\u949f\u533a\u95f4\u6570\u636e\"\u3001\n    x = \"\u65f6\u95f4\uff08\u97e9\u56fd\u6807\u51c6\u65f6\u95f4\uff09\"\u3001\n    y =\"\u6c47\u7387\uff081 \u7f8e\u5143\u5151 1 \u97e9\u5143\uff09\"\n  ) + \u0392\n  theme_minimal() +\n  theme(\n    plot.title = element_text(size = 18, face=\"bold\")\u3001\n    plot.subtitle= element_text(size=14)\u3001\n    axis.title= element_text(size=12)\u3001\n    axis.text= element_text\uff08size=10\uff09\u3001\n    axis.text.x= element_text(angle=45,hjust=1)         <\/code><\/pre>\n\n\n\n<h2 class=\"wp-block-heading\">6.\u6212\u4e25\u4ee4\u4e0e\u91d1\u878d\u5e02\u573a\uff1a\u6570\u636e\u610f\u5473\u7740\u4ec0\u4e48<\/h2>\n\n\n\n<p class=\"wp-block-paragraph\">\u6212\u4e25\u4ee4\u7684\u5ba3\u5e03\u5bf9\u91d1\u878d\u5e02\u573a\u4ea7\u751f\u4e86\u5de8\u5927\u7684\u5fc3\u7406\u548c\u5b9e\u9645\u5f71\u54cd\u3002R \u53ef\u4ee5\u7528\u6765\u5bf9\u8fd9\u4e9b\u6570\u636e\u8fdb\u884c\u5b9a\u91cf\u5206\u6790\uff0c\u4e3a\u6295\u8d44\u51b3\u7b56\u63d0\u4f9b\u53c2\u8003\u3002<\/p>\n\n\n\n<p class=\"wp-block-paragraph\">\u8fd9\u7bc7\u6587\u7ae0\u4e2d\u751f\u6210\u4e00\u7f8e\u5143\u6c47\u7387\u56fe\u8868\u7684\u4ee3\u7801\u5c55\u793a\u4e86\u5982\u4f55\u76f4\u63a5\u83b7\u53d6\u6c47\u7387\u6570\u636e\uff0c\u5e76\u5bf9\u5176\u53d8\u5316\u8fdb\u884c\u5206\u6790\u548c\u53ef\u89c6\u5316\u3002\u8fd9\u4e9b\u65b9\u6cd5\u5bf9\u4e8e\u5168\u9762\u4e86\u89e3\u7ecf\u6d4e\u72b6\u51b5\u975e\u5e38\u6709\u7528\uff0c\u800c\u4e0d\u4ec5\u4ec5\u662f\u6570\u5b57\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\"># \u5b8c\u6574\u4ee3\u7801\u53ca\u8be6\u7ec6\u4ee3\u7801\u8bf4\u660e<\/h3>\n\n\n\n<pre class=\"wp-block-code\"><code># \u5b89\u88c5\u5e76\u52a0\u8f7d\u6240\u9700\u7684\u8f6f\u4ef6\u5305\n# install.packages(\"alphavantager\")\nlibrary(alphavantager)\nlibrary(dplyr)\nlibrary(ggplot2)\nlibrary(lubridate)\n\n\u8bbe\u7f6e # Alpha Vantage API \u5bc6\u94a5\nav_api_key(\"YOUR_ALPHA_VANTAGE_API_KEY\") # \u8f93\u5165\u53d1\u5e03\u7684 API \u5bc6\u94a5\n\n# \u4e0b\u8f7d\u6bcf\u5206\u949f\u6570\u636e\nsymbol &lt;- &quot;USDKRW&quot; # \u97e9\u5143\u6c47\u7387\u7b26\u53f7\ndata &lt;- av_get(\n  symbol = symbol\u3001\n  av_fun = &quot;TIME_SERIES_INTRADAY&quot;, # \u8bbe\u7f6e\u83b7\u53d6\u65e5\u5185\u6570\u636e\n  interval = &quot;1min&quot;, # \u4ee5 1 \u5206\u949f\u4e3a\u589e\u91cf\u7684\u65f6\u95f4\u95f4\u9694\n  outputsize = &quot;full&quot; # \u8bf7\u6c42\u5b8c\u6574\u6570\u636e\n)\n\n\u9884\u5904\u7406 # \u6570\u636e\uff08\u5305\u62ec UTC \u2192 KST \u8f6c\u6362\uff09\ndata_filtered %\n  select(timestamp, open, high, low, close) %&gt;% # \u9009\u62e9\u6240\u9700\u5217\n  mutate(timestamp = with_tz(timestamp, tzone = \"Asia\/Seoul\"))%&gt;% # UTC \u2192 KST \u8f6c\u6362\n  \u8fc7\u6ee4\n    timestamp &gt;= as.POSIXct(\"2024-12-03 00:00:00\", tz = \"Asia\/Seoul\") &amp; # KST \u5728 12 \u6708 3 \u65e5 0:00 \u4e4b\u540e\n      timestamp %\n  arrange(timestamp) # \u6309\u65f6\u95f4\u6233\u6392\u5e8f\n\n\u5904\u7406 # \u6570\u636e\u662f\u5426\u4e3a\u7a7a\nif (nrow(data_filtered) == 0) {\n  stop(\"No data available for the selected time range. Please check the API or time range.\")\n}\n\n\u8ba1\u7b97 # \u7684\u5e73\u5747\u3001\u6700\u9ad8\u548c\u6700\u4f4e\u6c47\u7387\navg_rate &lt;- mean(data_filtered$close, na.rm = TRUE) \u8ba1\u7b97 # \u7684\u5e73\u5747\u6c47\u7387\nmax_rate &lt;- max(data_filtered$high, na.rm = TRUE) \u8ba1\u7b97 # \u7684\u6700\u9ad8\u6c47\u7387\nmin_rate &lt;- min(data_filtered$low, na.rm = TRUE) # \u8ba1\u7b97\u6700\u4f4e\u6c47\u7387\n\n\u53ef\u89c6\u5316 #\nggplot(data_filtered, aes(x = timestamp, y = close)) +\n  geom_line(color = &quot;steelblue&quot;, size = 1.2) + # \u6c47\u7387\u53d8\u52a8\u6298\u7ebf\u56fe\n  geom_hline(yintercept = avg_rate, color = &quot;darkgreen&quot;, linetype = &quot;dashed&quot;, size = 1) +\n  geom_hline(yintercept = max_rate, color = &quot;red&quot;, linetype = &quot;dotted&quot;, size = 1) +\n  geom_hline(yintercept = min_rate, color = &quot;blue&quot;, linetype = &quot;dotted&quot;, size = 1) +\n  annotate(&quot;text&quot;, x = max(data_filtered$timestamp), y = avg_rate\u3001\n           label = paste0(&quot;Average: &quot;, round(avg_rate, 2)), vjust = -1, color = &quot;darkgreen&quot;) +\n  annotate(&quot;text&quot;, x = max(data_filtered$timestamp), y = max_rate\u3001\n           label = paste0(&quot;Max: &quot;, round(max_rate, 2)), vjust = -1, color = &quot;red&quot;) +\n  annotate(&quot;text&quot;, x = max(data_filtered$timestamp), y = min_rate\u3001\n           label = paste0(&quot;Min: &quot;, round(min_rate, 2)), vjust = 2, color = &quot;blue&quot;) +\n  labs(\n    title = &quot;2024 \u5e74 12 \u6708 3 \u65e5\u5348\u591c\uff08\u97e9\u56fd\u65f6\u95f4\uff09\u97e9\u5143\/\u7f8e\u5143\u6c47\u7387&quot;\u3001\n    subtitle = &quot;\u901a\u8fc7 Alpha Vantage API \u83b7\u53d6\u7684 1 \u5206\u949f\u533a\u95f4\u6570\u636e&quot;\u3001\n    x = &quot;\u65f6\u95f4\uff08\u97e9\u56fd\u6807\u51c6\u65f6\u95f4\uff09&quot;\u3001\n    y =&quot;\u6c47\u7387\uff081 \u7f8e\u5143\u5151 1 \u97e9\u5143\uff09&quot;\n  ) + \u0392\n  theme_minimal() +\n  theme(\n    plot.title=element_text(size=18, face=&quot;bold&quot;)\u3001\n    plot.subtitle=element_text(size=14)\u3001\n    axis.title=element_text(size=12)\u3001\n    axis.text=element_text(size=10)\u3001\n    axis.text.x=element_text(angle=45,hjust=1)\n)<\/code><\/pre>\n\n\n\n<h3 class=\"wp-block-heading\">\u89e3\u8bfb\u4ee3\u7801<\/h3>\n\n\n\n<p class=\"wp-block-paragraph\">1. <strong>\u5b89\u88c5\u548c\u52a0\u8f7d\u8f6f\u4ef6\u5305<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   library(alphavantager)\n   library(dplyr)\n   library(ggplot2)\n   library(lubridate)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>alphavantager<\/code>\u7528\u4e8e\u901a\u8fc7 Alpha Vantage API \u5bfc\u5165\u8d22\u52a1\u6570\u636e\u3002<\/li>\n\n\n\n<li><code>dplyr<\/code>:\u7528\u4e8e\u9884\u5904\u7406\u548c\u64cd\u4f5c\u6570\u636e\u7684\u8f6f\u4ef6\u5305\u3002<\/li>\n\n\n\n<li><code>ggplot2<\/code>:\u6570\u636e\u53ef\u89c6\u5316\u8f6f\u4ef6\u5305<\/li>\n\n\n\n<li><code>\u6da6\u6ed1<\/code>\u7528\u4e8e\u65e5\u671f\u548c\u65f6\u95f4\u64cd\u4f5c\u7684\u8f6f\u4ef6\u5305\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">2. <strong>\u8bbe\u7f6e Alpha Vantage API \u5bc6\u94a5<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   av_api_key(\"YOUR_ALPHA_VANTAGE_API_KEY\")<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u8bbe\u7f6e\u79c1\u4eba API \u5bc6\u94a5\uff0c\u4ee5\u4fbf\u4f7f\u7528 Alpha Vantage API\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">3. <strong>\u4e0b\u8f7d\u6570\u636e<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   symbol &lt;- &quot;USDKRW&quot;\n   data &lt;- av_get(\n     symbol=symbol\u3001\n     av_fun=&quot;TIME_SERIES_INTRADAY&quot;\u3001\n     interval=&quot;1min&quot;\u3001\n     outputsize=&quot;full&quot;\n   )<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>\u7b26\u53f7<\/code>\u8bbe\u7f6e\u97e9\u5143\u6c47\u7387\u7684\u7b26\u53f7\u3002<\/li>\n\n\n\n<li><code>av_get<\/code>\u4ece Alpha Vantage \u83b7\u53d6\u6bcf\u5206\u949f\u7684\u97e9\u5143\u5151\u7f8e\u5143\u6c47\u7387\u6570\u636e\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">4. <strong>\u6570\u636e\u9884\u5904\u7406<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   data_filtered %\n     select(timestamp, open, high, low, close) %&gt;%\n     mutate(timestamp=with_tz(timestamp, tzone=\"Asia\/Seoul\"))%&gt;%\n     \u8fc7\u6ee4\n       timestamp &gt;= as.POSIXct(\"2024-12-03 00:00:00\", tz=\"Asia\/Seoul\") &amp;\n       timestamp %\n     arrange(timestamp)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>\u9074\u9009<\/code>\u53ea\u9009\u62e9\u9700\u8981\u7684\u5217\u3002<\/li>\n\n\n\n<li><code>\u53d8\u79cd<\/code>UTC\uff1a\u5c06 UTC \u65f6\u95f4\u8f6c\u6362\u4e3a\u97e9\u56fd\u6807\u51c6\u65f6\u95f4\uff08KST\uff09\u3002<\/li>\n\n\n\n<li><code>\u8fc7\u6ee4<\/code>\uff1a\u8fc7\u6ee4\u6307\u5b9a\u65e5\u671f\u8303\u56f4\u5185\u7684\u6570\u636e\u3002<\/li>\n\n\n\n<li><code>\u5b89\u6392<\/code>:\u6309\u65f6\u95f4\u987a\u5e8f\u6392\u5217\u6570\u636e\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">5. <strong>\u6570\u636e\u4e3a\u7a7a\u65f6\u7684\u5904\u7406<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   if (nrow(data_filtered) == 0) {\n     stop(\"No data available for the selected time range. Please check the API or time range.\")\n   }<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u5982\u679c\u8fc7\u6ee4\u540e\u7684\u6570\u636e\u4e3a\u7a7a\uff0c\u5219\u8f93\u51fa\u9519\u8bef\u4fe1\u606f\u5e76\u4e2d\u6b62\u6267\u884c\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">6. <strong>\u8ba1\u7b97\u5e73\u5747\u3001\u6700\u4f73\u548c\u6700\u5dee\u6c47\u7387<\/strong><\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   avg_rate &lt;- mean(data_filtered$close, na.rm=TRUE)\n   max_rate &lt;- max(data_filtered$high\uff0cna.rm=TRUE)\n   min_rate &lt;- min(data_filtered$low, na.rm=TRUE)<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li>\u5e73\u5747 (<code>\u5e73\u5747\u901f\u7387<\/code>)\u3001\u6700\u9ad8(<code>max_rate<\/code>)\u3001\u6700\u4f4e(<code>\u6700\u5c0f\u901f\u7387<\/code>) \u8ba1\u7b97\u6bcf\u79cd\u8d27\u5e01\u7684\u6c47\u7387\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">7. \u7f8e\u5143\u6c47\u7387\u56fe <strong>\u53ef\u89c6\u5316<\/strong> \u4e0b\u8f7d<\/p>\n\n\n\n<pre class=\"wp-block-code\"><code>   ggplot(data_filtered, aes(x=timestamp, y=close)) +\n     geom_line(color=\"steelblue\", size=1.2) +\n     geom_hline(yintercept=avg_rate,color=\"darkgreen\",linetype=\"dashed\",size=1)+\n     geom_hline(yintercept=max_rate,color=\"red\",linetype=\"dotted\",size=1)+\n     geom_hline(yintercept=min_rate,color=\"blue\",linetype=\"dotted\",size=1)+\n     annotate(\"\u6587\u672c\",x=max(data_filtered$timestamp),y=avg_rate\u3001\n              label=paste0(\"Average: \",round(avg_rate,2)),vjust=-1,color=\"darkgreen\")+\n     annotate(\"\u6587\u672c\",x=max(data_filtered$timestamp),y=max_rate\u3001\n              label=paste0(\"Max: \",round(max_rate,2)),vjust=-1,color=\"red\")+\n     annotate(\"text\",x=max(data_filtered$timestamp),y=min_rate\u3001\n              label=paste0(\"Min: \",round(min_rate,2)),vjust=2,color=\"blue\")+\n     labs(\n       title=\"2024 \u5e74 12 \u6708 3 \u65e5\u5348\u591c\uff08\u97e9\u56fd\u65f6\u95f4\uff09\u97e9\u5143\/\u7f8e\u5143\u6c47\u7387\"\u3001\n       subtitle=\"1 \u5206\u949f\u95f4\u9694\u6570\u636e\uff08\u901a\u8fc7 Alpha Vantage API\uff09\"\u3001\n       x=\"\u65f6\u95f4\uff08\u97e9\u56fd\u6807\u51c6\u65f6\u95f4\uff09\"\u3001\n       y=\"\u6c47\u7387\uff08\u97e9\u5143\u5151\u7f8e\u5143\uff09\"\n     ) + \u0392\n     theme_minimal() +\n     theme(\n       plot.title=element_text(size=18, face=\"bold\")\u3001\n       plot.subtitle=element_text(size=14)\u3001\n       axis.title=element_text(size=12)\u3001\n       axis.text=element_text(size=10)\u3001\n       axis.text.x=element_text(angle=45,hjust=1)\n     )<\/code><\/pre>\n\n\n\n<ul class=\"wp-block-list\">\n<li><code>\u5730\u5f62\u7ebf<\/code>\u56fe\u793a\uff1a\u5c06\u6c47\u7387\u53d8\u52a8\u7ed8\u5236\u6210\u6298\u7ebf\u56fe\u3002<\/li>\n\n\n\n<li><code>\u5730\u5f62\u9ad8\u7ebf<\/code>\u4ee5\u6c34\u5e73\u7ebf\u663e\u793a\u5e73\u5747\u6c47\u7387\uff08\u7eff\u8272\u865a\u7ebf\uff09\u3001\u6700\u9ad8\u6c47\u7387\uff08\u7ea2\u8272\u865a\u7ebf\uff09\u548c\u6700\u4f4e\u6c47\u7387\uff08\u84dd\u8272\u865a\u7ebf\uff09\u3002<\/li>\n\n\n\n<li><code>\u8be0\u91ca<\/code>\u4e3a\u56fe\u8868\u4e2d\u7684\u6bcf\u4e2a\u6570\u5b57\u6dfb\u52a0\u6587\u5b57\u6ce8\u91ca\u3002<\/li>\n\n\n\n<li><code>\u5b9e\u9a8c\u5ba4<\/code>\uff1a\u8bbe\u7f6e\u56fe\u5f62\u6807\u9898\u548c\u5750\u6807\u8f74\u6807\u7b7e\u3002<\/li>\n\n\n\n<li><code>\u6700\u5c0f\u5316\u4e3b\u9898<\/code> \u548c <code>\u4e3b\u9898<\/code>\u8bbe\u7f6e\u56fe\u8868\u7684\u6837\u5f0f\u548c\u6587\u5b57\u5927\u5c0f\u3002<\/li>\n<\/ul>\n\n\n\n<p class=\"wp-block-paragraph\">\u8fd9\u6bb5\u4ee3\u7801\u6f14\u793a\u4e86\u4f7f\u7528 R \u53ef\u89c6\u5316\u65b9\u6cd5\u4ece Alpha Vantage API \u83b7\u53d6\u6570\u636e\u3001\u5206\u6790\u6570\u636e\u5e76\u751f\u6210\u97e9\u5143\u6c47\u7387\u56fe\u8868\u7684\u8fc7\u7a0b\u3002 \u8bf7\u6ce8\u610f\uff0c\u751f\u6210\u7684\u56fe\u8868\u4e2d\u7684\u65e5\u671f\u6709\u4e9b\u504f\u5dee\uff0c\u4f46\u8fd9\u53ef\u80fd\u662f\u65f6\u533a\u9020\u6210\u7684\uff0c\u6211\u4f1a\u518d\u505a\u4e00\u4e9b\u7814\u7a76\uff0c\u5e76\u5c06\u5176\u4fee\u6539\u4e3a\u4e0e\u60a8\u7684\u672c\u5730\u65f6\u95f4\u4e00\u81f4\uff09\u3002<\/p>","protected":false},"excerpt":{"rendered":"<p>2024 \u5e74 12 \u6708 3 \u65e5\u665a\u4e0a 10 \u70b9 27 \u5206\uff0c\u97e9\u56fd\u5ba3\u5e03\u6212\u4e25\uff0c\u91d1\u878d\u5e02\u573a...<\/p>","protected":false},"author":3,"featured_media":3906,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_kad_blocks_custom_css":"","_kad_blocks_head_custom_js":"","_kad_blocks_body_custom_js":"","_kad_blocks_footer_custom_js":"","_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"_kad_post_classname":"","footnotes":""},"categories":[6],"tags":[581,174,582,249,164,583,580],"class_list":["post-3883","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-r-coding","tag-alpha-vantage-api","tag-r-","tag-582","tag-249","tag-164","tag-583","tag-580"],"taxonomy_info":{"category":[{"value":6,"label":"\uc54c(R)"}],"post_tag":[{"value":581,"label":"Alpha Vantage API"},{"value":174,"label":"R \ud504\ub85c\uadf8\ub798\ubc0d"},{"value":582,"label":"\uacc4\uc5c4\ub839"},{"value":249,"label":"\uae08\uc735 \ub370\uc774\ud130"},{"value":164,"label":"\ub370\uc774\ud130 \uc2dc\uac01\ud654"},{"value":583,"label":"\ud658\uc728 \uadf8\ub798\ud504"},{"value":580,"label":"\ud658\uc728 \ubd84\uc11d"}]},"featured_image_src_large":["https:\/\/secondlife.lol\/wp-content\/uploads\/2024\/12\/\uc6d0\ub2ec\ub7ec-\ud658\uc728-\uadf8\ub798\ud504-\uc0dd\uc131-\ud3ec\uc2a4\ud2b8-\uc378\ub124\uc77c-600x600.jpg",600,600,true],"author_info":{"display_name":"TERE","author_link":"https:\/\/secondlife.lol\/zh\/author\/tere\/"},"comment_info":0,"category_info":[{"term_id":6,"name":"\uc54c(R)","slug":"r-coding","term_group":0,"term_taxonomy_id":6,"taxonomy":"category","description":"","parent":20,"count":61,"filter":"raw","cat_ID":6,"category_count":61,"category_description":"","cat_name":"\uc54c(R)","category_nicename":"r-coding","category_parent":20}],"tag_info":[{"term_id":581,"name":"Alpha Vantage API","slug":"alpha-vantage-api","term_group":0,"term_taxonomy_id":581,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":174,"name":"R \ud504\ub85c\uadf8\ub798\ubc0d","slug":"r-%ed%94%84%eb%a1%9c%ea%b7%b8%eb%9e%98%eb%b0%8d","term_group":0,"term_taxonomy_id":174,"taxonomy":"post_tag","description":"","parent":0,"count":15,"filter":"raw"},{"term_id":582,"name":"\uacc4\uc5c4\ub839","slug":"%ea%b3%84%ec%97%84%eb%a0%b9","term_group":0,"term_taxonomy_id":582,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":249,"name":"\uae08\uc735 \ub370\uc774\ud130","slug":"%ea%b8%88%ec%9c%b5-%eb%8d%b0%ec%9d%b4%ed%84%b0","term_group":0,"term_taxonomy_id":249,"taxonomy":"post_tag","description":"","parent":0,"count":3,"filter":"raw"},{"term_id":164,"name":"\ub370\uc774\ud130 \uc2dc\uac01\ud654","slug":"%eb%8d%b0%ec%9d%b4%ed%84%b0-%ec%8b%9c%ea%b0%81%ed%99%94","term_group":0,"term_taxonomy_id":164,"taxonomy":"post_tag","description":"","parent":0,"count":52,"filter":"raw"},{"term_id":583,"name":"\ud658\uc728 \uadf8\ub798\ud504","slug":"%ed%99%98%ec%9c%a8-%ea%b7%b8%eb%9e%98%ed%94%84","term_group":0,"term_taxonomy_id":583,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"},{"term_id":580,"name":"\ud658\uc728 \ubd84\uc11d","slug":"%ed%99%98%ec%9c%a8-%eb%b6%84%ec%84%9d","term_group":0,"term_taxonomy_id":580,"taxonomy":"post_tag","description":"","parent":0,"count":1,"filter":"raw"}],"_links":{"self":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/3883","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/comments?post=3883"}],"version-history":[{"count":14,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/3883\/revisions"}],"predecessor-version":[{"id":3917,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/posts\/3883\/revisions\/3917"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/media\/3906"}],"wp:attachment":[{"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/media?parent=3883"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/categories?post=3883"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/secondlife.lol\/zh\/wp-json\/wp\/v2\/tags?post=3883"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}