ÔÚLinuxϵͳÉÏʹÓÃRStudio¾ÙÐÐÊý¾Ý¿ÉÊÓ»¯µÄÉèÖÃÒªÁì
ÔÚlinuxϵͳÉÏʹÓÃrstudio¾ÙÐÐÊý¾Ý¿ÉÊÓ»¯µÄÉèÖÃÒªÁì
ͻ񻣼
RStudioÊÇÒ»¸ö¹¦Ð§Ç¿Ê¢µÄ¼¯³É¿ª·¢ÇéÐΣ¬ÊÊÓÃÓÚRÓïÑԵĿª·¢ºÍÊý¾ÝÆÊÎö¡£±¾ÎĽ«ÏÈÈÝÔõÑùÔÚLinuxϵͳÉÏ×°ÖúÍÉèÖÃRStudio£¬²¢Ê¹ÓÃÆäÊý¾Ý¿ÉÊÓ»¯¹¦Ð§¡£
×°ÖÃRºÍRStudio
ÔÚLinuxϵͳÉÏ×°ÖÃRºÍRStudioÊÇ×îÏÈÉèÖÃÀú³ÌµÄµÚÒ»²½¡£Æ¾Ö¤ÄãµÄLinux¿¯Ðа汾£¬¿ÉÒÔ½ÓÄÉÒÔÏÂÏÂÁîÍê³É×°Öãº
1.1 Ubuntu/Debian:
sudo apt-get update sudo apt-get install r-base r-base-dev
µÇ¼ºó¸´ÖÆ
1.2 CentOS/Fedora:
sudo yum install R
µÇ¼ºó¸´ÖÆ
×°ÖÃRStudio¿ÉÒÔͨ¹ý¹Ù·½ÍøÕ¾ÏÂÔضÔÓ¦µÄ×°Öðü¾ÙÐÐ×°Öá£ÏÂÔصص㣺https://www.rstudio.com/products/rstudio/download/
×°ÖÃR°üºÍÒÀÀµÏî
R°üÊÇRÓïÑÔµÄÀ©Õ¹¿â£¬ÌṩÁ˸»ºñµÄÊý¾Ý´¦Öóͷ£ºÍ¿ÉÊÓ»¯¹¦Ð§¡£ÔÚRStudioÖоÙÐÐÊý¾Ý¿ÉÊÓ»¯ÐèҪװÖÃÏà¹ØµÄR°ü¡£·¿ªRStudioºó£¬Ê¹ÓÃÒÔÏ´úÂë×°Öó£ÓõÄÊý¾Ý¿ÉÊÓ»¯°ü£º
install.packages(c(“ggplot2”, “plotly”, “leaflet”, “shiny”))
Õ⽫»á×°ÖÃggplot2¡¢plotly¡¢leafletºÍshiny°ü¡£
RStudioÉèÖÃ
3.1 ×Ô½ç˵ÉèÖÃ
ÔÚRStudioÖУ¬Óû§¿ÉÒÔͨ¹ýÑ¡Ôñ”Tools” -> “Global Options”À´¾ÙÐÐ×Ô½ç˵ÉèÖá£ÔÚ”Appearance”Ñ¡ÏÏ£¬¿ÉÒÔµ÷½â±à¼Æ÷µÄ×ÖÌå¡¢¾ÞϸºÍÖ÷ÌâÑÕÉ«¡£ÔÚ”Code”Ñ¡ÏÏ£¬¿ÉÒÔÉèÖôúÂëËõ½ø¡¢×Ô¶¯Æ´Ð´¼ì²éºÍ×Ô¶¯Íê³ÉµÈ¡£
3.2 ÉèÖÃRMarkdown
RMarkdownÊÇRStudioÖÐÓÃÓÚÌìÉú±¨¸æºÍÎĵµµÄÇ¿Ê¢¹¤¾ß¡£ÔÚ”RMarkdown”Ñ¡ÏÏ£¬¿ÉÒÔÉèÖÃĬÈϵÄÊäÌØÊâʽºÍÑùʽ£¬ÈçHTML¡¢PDF¡¢WordµÈ¡£
Êý¾Ý¿ÉÊÓ»¯Ê¾Àý
½ÓÏÂÀ´£¬½«Í¨¹ý¼¸¸öÀý×ÓÀ´Õ¹Ê¾RStudioµÄÊý¾Ý¿ÉÊÓ»¯¹¦Ð§¡£
4.1 ʹÓÃggplot2»æÖÆÉ¢µãͼ
ggplot2ÊÇÒ»¸ö³£ÓõÄÊý¾Ý¿ÉÊÓ»¯°ü£¬¿ÉÒÔ»æÖƶàÖÖÀàÐ͵Äͼ±í¡£ÒÔÏÂÊÇÒ»¸ö»æÖÆÉ¢µãͼµÄʾÀý´úÂ룺
library(ggplot2) data <- read.csv("data.csv") ggplot(data, aes(x=age, y=income, color=gender)) + geom_point()
µÇ¼ºó¸´ÖÆ
Õâ¶Î´úÂ뽫´ÓÒ»¸öÃûΪ”data.csv”µÄÎļþÖжÁÈ¡Êý¾Ý£¬È»ºóʹÓÃageºÍincome×÷Ϊºá×Ý×ø±ê£¬gender×÷ΪÑÕÉ«À´»æÖÆÒ»¸ö¼òÆÓµÄÉ¢µãͼ¡£
4.2 ʹÓÃplotly»æÖƽ»»¥Ê½Í¼±í
plotlyÊÇÒ»¸ö¹¦Ð§Ç¿Ê¢µÄ½»»¥Ê½Êý¾Ý¿ÉÊÓ»¯°ü£¬¿ÉÒÔ½¨ÉèÖÖÖÖÀàÐ͵Äͼ±í£¬ÈçÕÛÏßͼ¡¢±ýͼºÍÈÈͼµÈ¡£ÒÔÏÂÊÇÒ»¸ö»æÖÆÕÛÏßͼµÄʾÀý´úÂ룺
library(plotly) data <- read.csv("data.csv") plot_ly(data, x = ~date, y = ~value, type = 'scatter', mode = 'lines')
µÇ¼ºó¸´ÖÆ
Õâ¶Î´úÂ뽫´Ó”data.csv”ÎļþÖжÁÈ¡Êý¾Ý£¬²¢Ê¹ÓÃdateºÍvalue×÷ΪxºÍyÖáÀ´½¨ÉèÒ»¸öÕÛÏßͼ¡£
4.3 ʹÓÃleaflet½¨ÉèµØͼ¿ÉÊÓ»¯
leafletÊÇÒ»¸öרעÓÚµØͼ¿ÉÊÓ»¯µÄ°ü£¬¿ÉÒÔ»æÖƽ»»¥Ê½µØͼºÍ±ê¼ÇÎïµÈ¡£ÒÔÏÂÊÇÒ»¸ö»æÖƼòÆÓµØͼµÄʾÀý´úÂ룺
library(leaflet) data <- read.csv("data.csv") map <- leaflet() %>% addTiles() %>% setView(lng = 0, lat = 0, zoom = 2) for (i in 1:nrow(data)) { map <- map %>% addMarkers(lng = data[i, "longitude"], lat = data[i, "latitude"], popup = data[i, "name"]) } map
µÇ¼ºó¸´ÖÆ
Õâ¶Î´úÂ뽫´Ó”data.csv”ÎļþÖжÁÈ¡Êý¾Ý£¬²¢Æ¾Ö¤¾Î³¶ÈºÍÃû³ÆÔÚµØͼÉÏÌí¼Ó±ê¼ÇÎï¡£
½áÂÛ
±¾ÎÄÏÈÈÝÁËÔÚLinuxϵͳÉÏÉèÖÃRStudio¾ÙÐÐÊý¾Ý¿ÉÊÓ»¯µÄÒªÁ죬°üÀ¨×°ÖÃRºÍRStudio¡¢×°ÖÃR°üºÍÒÀÀµÏîÒÔ¼°RStudioµÄÉèÖá£Í¨¹ýʾÀý´úÂ룬չʾÁËʹÓÃggplot2¡¢plotlyºÍleaflet¾ÙÐÐÊý¾Ý¿ÉÊÓ»¯µÄÒªÁ졣ϣÍû±¾ÎÄÄܹ»×ÊÖú¶ÁÕ߸üºÃµØʹÓÃRStudio¾ÙÐÐÊý¾ÝÆÊÎöºÍ¿ÉÊÓ»¯ÊÂÇé¡£
ÒÔÉϾÍÊÇÔÚLinuxϵͳÉÏʹÓÃRStudio¾ÙÐÐÊý¾Ý¿ÉÊÓ»¯µÄÉèÖÃÒªÁìµÄÏêϸÄÚÈÝ£¬¸ü¶àÇë¹Ø×¢±¾ÍøÄÚÆäËüÏà¹ØÎÄÕ£¡