{"id":10883,"date":"2021-03-09T11:04:12","date_gmt":"2021-03-09T19:04:12","guid":{"rendered":"https:\/\/www.couchbase.com\/blog\/?p=10883"},"modified":"2023-05-24T03:31:55","modified_gmt":"2023-05-24T10:31:55","slug":"couchbase-r-programming-with-query-maps-leaflet","status":"publish","type":"post","link":"https:\/\/www.couchbase.com\/blog\/ko\/couchbase-r-programming-with-query-maps-leaflet\/","title":{"rendered":"\ucfe0\ud06c\ubca0\uc774\uc2a4 NoSQL \ucffc\ub9ac \ubc0f \ub9f5\uc744 \uc0ac\uc6a9\ud55c R \ud504\ub85c\uadf8\ub798\ubc0d"},"content":{"rendered":"

\ub9ce\uc740 \ud1b5\uacc4 \ub370\uc774\ud130 \ubd84\uc11d\uac00\uc640 \ub370\uc774\ud130 \uacfc\ud559\uc790\uac00 <\/span>R \ud504\ub85c\uadf8\ub798\ubc0d \uc5b8\uc5b4<\/span><\/a> \ub97c \uc0ac\uc6a9\ud558\uc5ec \ub370\uc774\ud130\ubca0\uc774\uc2a4 \uc678\ubd80\uc5d0\uc11c \uc218\uce58\ub97c \ubd84\uc11d\ud569\ub2c8\ub2e4. \ub9c8\ucc2c\uac00\uc9c0\ub85c \ub370\uc774\ud130\ubca0\uc774\uc2a4 \ubd84\uc11d\uac00\ub4e4\uc740 \ub2e8\uc77c \uc18c\uc2a4\ub97c \uc720\uc9c0\ud558\uae30 \uc704\ud574 \uac00\ub2a5\ud55c \ud55c \ub3d9\uc77c\ud55c \ub370\uc774\ud130\ubca0\uc774\uc2a4\uc5d0\uc11c \ubaa8\ub4e0 \uc791\uc5c5\uc744 \uc218\ud589\ud558\ub824\uace0 \ub178\ub825\ud569\ub2c8\ub2e4. Couchbase\ub294 JSON \ub370\uc774\ud130 \uc138\ud2b8, \uac15\ub825\ud55c \ucffc\ub9ac \uc5b8\uc5b4, R\uacfc \uac19\uc740 \ubd84\uc11d \ub3c4\uad6c \uc138\ud2b8 \uac04\uc758 \uaca9\ucc28\ub97c \ud574\uc18c\ud558\uae30 \uc704\ud55c \uacf5\ud1b5 \uae30\ubc18\uc744 \uc81c\uacf5\ud569\ub2c8\ub2e4.\u00a0<\/span><\/p>\n

\ubd84\uc0b0\ub41c \ub0b4\uacb0\ud568\uc131 \ubc0f \uc720\uc5f0\ud55c \uc2a4\ud0a4\ub9c8\ub294 \uae30\uc5c5\uc774 Couchbase\ub97c \uc120\ud0dd\ud558\ub294 \uc774\uc720 \uc911 \uc77c\ubd80\uc5d0 \ubd88\uacfc\ud569\ub2c8\ub2e4. \uc790\uc138\ud788 \uc54c\uc544\ubcf4\ub824\uba74 \ub2e4\uc74c\uc744 \ucc38\uc870\ud558\uc138\uc694. \uae30\uc5c5\uc774 NoSQL\uc744 \uc0ac\uc6a9\ud558\ub294 \uc774\uc720<\/a> \ucc28\uc138\ub300 \uc81c\ud488\uc744 \uc81c\uacf5\ud558\uae30 \uc704\ud574 \ub178\ub825\ud558\uace0 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\uadf8\ub9ac\uace0 \uce74\uc6b0\uce58\ubca0\uc774\uc2a4 SDK<\/a> \ub294 \uac00\uc7a5 \uc778\uae30 \uc788\ub294 \ud504\ub85c\uadf8\ub798\ubc0d \uc5b8\uc5b4\ub97c \ub2e4\ub8f9\ub2c8\ub2e4: Java, .NET, Node.js, Go \ub4f1\uc744 \uc9c0\uc6d0\ud569\ub2c8\ub2e4. \ud558\uc9c0\ub9cc REST API\ub97c \uc27d\uac8c \uc0ac\uc6a9\ud560 \uc218 \uc788\uc73c\ubbc0\ub85c R\uc744 \uc704\ud55c \ud2b9\uc815 \ub4dc\ub77c\uc774\ube0c\ub97c \uc81c\uacf5\ud560 \ud544\uc694\uac00 \uc5c6\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\uc774 \uae00\uc5d0\uc11c\ub294 \uc774\uc804 \ube14\ub85c\uadf8\uc758 R \ud504\ub85c\uadf8\ub798\ubc0d \ud29c\ud1a0\ub9ac\uc5bc\uc744 \ub2e4\uc2dc \ubd80\ud65c\uc2dc\ucf1c \ucd5c\uc2e0 Couchbase \ubc84\uc804\uc5d0\uc11c R\uc774 \uc5b4\ub5bb\uac8c \uc791\ub3d9\ud558\ub294\uc9c0 \uc0b4\ud3b4\ubd05\ub2c8\ub2e4. \uc608\uc81c\uc5d0\uc11c\ub294 JSON \ub370\uc774\ud130\uc5d0 \ub300\ud574 \ud45c \ud615\uc2dd\uc758 N1QL\/SQL \ucffc\ub9ac\ub97c \uc2e4\ud589\ud558\ub294 \ubc29\ubc95\uacfc \uc77c\ubd80 \ub370\uc774\ud130\uc758 \uacb0\uacfc \uc704\uce58\ub97c \ub9e4\ud551\ud558\ub294 \ubc29\ubc95\uc744 \ubcf4\uc5ec\uc90d\ub2c8\ub2e4. \uc9c0\ub9ac\uacf5\uac04 \ub370\uc774\ud130<\/a>.\u00a0<\/span><\/p>\n

R\uc774\ub780 \ubb34\uc5c7\uc778\uac00\uc694?<\/span><\/h2>\n

R\uc740 SAS \ubc0f SPSS\uc640 \uac19\uc740 \ub3c5\uc810 \uc81c\ud488\uacfc \uc720\uc0ac\ud55c \uc624\ud508 \uc18c\uc2a4 \ud1b5\uacc4 \ucef4\ud4e8\ud305 \ubc0f \uadf8\ub798\ud53d \ub3c4\uad6c \uc138\ud2b8\uc5d0 \ub300\ud55c \ud544\uc694\uc131\uc744 \ucda9\uc871\ud569\ub2c8\ub2e4. \uc5ec\uae30\uc5d0\ub294 \ud2b9\ud788 \uacfc\ud559 \ubb38\uc11c\uc5d0 \uac8c\uc2dc\ud560 \uc218 \uc788\ub294 \uadf8\ub798\ud53d \ud50c\ub86f\uc5d0 \uc801\ud569\ud55c \ud1b5\uacc4 \ubd84\uc11d \ubc0f \uadf8\ub798\ud53d \uc2dc\uac01\ud654\uac00 \ud3ec\ud568\ub429\ub2c8\ub2e4.<\/span><\/p>\n

\ud1b5\uacc4 \ubd84\uc11d\uc5d0 \uc788\uc5b4 R\uc774 Python\ubcf4\ub2e4 \ub0ab\ub2e4\uace0 \ud560 \uc218 \uc788\uc744\uae4c\uc694? \uc774\ub294 \ub17c\uc7c1\uc758 \uc5ec\uc9c0\uac00 \uc788\uc9c0\ub9cc, \ub9ce\uc740 \uc639\ud638\uc790\uac00 \uc788\uc2b5\ub2c8\ub2e4. \uc2e4\uc81c\ub85c \ub9ce\uc740 \uac1c\ubc1c\uc790\uac00 \uac00\uc7a5 \ub9ce\uc774 \uc0ac\uc6a9\ud558\ub294 \ubd84\uc11d \ud658\uacbd\uc77c \uc218 \uc788\uc2b5\ub2c8\ub2e4. \uc808\ub300<\/em> \uc0ac\uc6a9. In <\/span>\ud558\ub098\uc758 \uae00\ub85c\ubc8c R \ud504\ub85c\uadf8\ub798\ubc0d \uad6c\uc778 \ud504\ub85c\uc81d\ud2b8<\/span><\/a>\uc5d0 \ub530\ub974\uba74 R \ud504\ub85c\uadf8\ub798\ubc0d\uc740 Python, SQL, Java, Amazon ML\uc5d0 \uc774\uc5b4 5\uc704\ub97c \ucc28\uc9c0\ud588\uc2b5\ub2c8\ub2e4. \ud1b5\uacc4 \ub370\uc774\ud130 \ubd84\uc11d \ud234\uc14b\uc758 \uacbd\uc6b0 C\/C++, Tableau, Hadoop, \uc2ec\uc9c0\uc5b4 SAS\ubcf4\ub2e4 \uc57d\uac04 \ub192\uc558\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\uc774\ub97c \ud1b5\ud574 \uc0dd\uc131\ub41c \uc5d0\ucf54\uc2dc\uc2a4\ud15c\uc740 \uac15\ub825\ud55c \ubd84\uc11d, \uc2dc\uacc4\uc5f4 \ubd84\uc11d, \uc2dc\uac01\ud654 \uae30\ub2a5 \ub4f1\uc744 \ucd94\uac00\ud558\ub294 \uc218\ub9cc \uac1c\uc758 \ud328\ud0a4\uc9c0\ub97c \uc81c\uacf5\ud569\ub2c8\ub2e4. \uc194\ub8e8\uc158 \uad6c\ucd95\uc744 \uc704\ud55c \uc5ec\ub7ec \uac00\uc9c0 IDE\uac00 \uc874\uc7ac\ud558\uba70, \uc774 \uac8c\uc2dc\ubb3c\uc5d0\uc11c\ub294 \ub2e4\uc74c\uacfc \uac19\uc740 \uac83\uc744 \uc0ac\uc6a9\ud569\ub2c8\ub2e4. <\/span>R \uc2a4\ud29c\ub514\uc624<\/span><\/a> (\uc774 \uae00\uc744 \uc4f0\uba74\uc11c \ucc98\uc74c\uc73c\ub85c \uc27d\uac8c \uc0ac\uc6a9\ud588\uc2b5\ub2c8\ub2e4).<\/span><\/p>\n

\uce74\uc6b0\uce58\ubca0\uc774\uc2a4 \uc124\uc815<\/span><\/h2>\n

\uae30\ubcf8 Couchbase \uc11c\ubc84 \uc124\uce58\uc5d0\ub294 \uc774 \ud29c\ud1a0\ub9ac\uc5bc\uc5d0 \ud544\uc694\ud55c \ubaa8\ub4e0 \uac83\uc774 \ud3ec\ud568\ub418\uc5b4 \uc788\uc2b5\ub2c8\ub2e4. \ub2e8\uc77c \ub178\ub4dc\uc5d0 \uc124\uce58\ud558\ub294 \uac83\uc774 \uc88b\uc73c\uba70, \uc774\uc0c1\uc801\uc73c\ub85c\ub294 R Studio\uc640 \ud568\uaed8 \uc0ac\uc6a9 \uc911\uc778 PC\uc5d0 \uc124\uce58\ud558\ub294 \uac83\uc774 \uc88b\uc2b5\ub2c8\ub2e4. <\/span>localhost<\/span><\/i>. Couchbase 7.x \ubca0\ud0c0 \ubc84\uc804\uc744 \uc0ac\uc6a9\ud558\uace0 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n

\uc124\uce58\uac00 \uc644\ub8cc\ub418\uba74 <\/span>\uc0c8 \ubc84\ud0b7\uc774 \uc788\ub294 <\/span>\uc5ec\ud589 \uc0d8\ud50c<\/span><\/i> \ub370\uc774\ud130 \uc138\ud2b8<\/span><\/a> \ub97c \ud074\ub9ad\ud558\uace0 \ud574\ub2f9 \ubc84\ud0b7\uc5d0 \uc561\uc138\uc2a4\ud560 \uc218 \uc788\ub294 \uc0c8 \uc0ac\uc6a9\uc790\ub97c \ub9cc\ub4ed\ub2c8\ub2e4.<\/span><\/p>\n

R Studio \uc124\uc815<\/span><\/h2>\n

\ub2e4\uc74c, <\/span>R \uc124\uce58<\/span><\/a> \ub97c \ud074\ub9ad\ud55c \ub2e4\uc74c <\/span>R Studio \ub370\uc2a4\ud06c\ud1b1<\/span><\/a> (\ubb34\ub8cc \ubc84\uc804)\uc744 \ubaa8\ub4e0 \uae30\ubcf8 \uc635\uc158\uacfc \ud568\uaed8 \uc124\uce58\ud569\ub2c8\ub2e4. \uc124\uce58\uac00 \uc644\ub8cc\ub418\uba74 R Studio\ub97c \uc2dc\uc791\ud558\uace0<\/span> \ub3c4\uad6c -> \ud328\ud0a4\uc9c0 \uc124\uce58<\/span> \ub97c \ud074\ub9ad\ud558\uace0 \uc774 \ub124 \uac00\uc9c0\ub97c \uc124\uce58\ud569\ub2c8\ub2e4:<\/span> HTTR, JSONLITE, GGPLOT2, \ub9ac\ud50c\ub81b<\/span><\/em>.<\/span><\/p>\n

\ub610\ub294 R \ucf54\ub529 \ucf58\uc194\uc5d0\uc11c \ub2e4\uc74c \ucf54\ub4dc\ub97c \uc2e4\ud589\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4:<\/span><\/p>\n

install.packages(c(\"httr\", \"jsonlite\", \"ggplot2\", \"leaflet\"))<\/pre>\n
R Studio\uac00 \uc0ac\ub77c\uc9c0\uace0 \uc5ec\ub7ec \uac00\uc9c0 \uae30\ubcf8 \uc885\uc18d\uc131\uc744 \uc124\uce58\ud569\ub2c8\ub2e4. \uc2e4\ud589\ub418\ub294 \ub3d9\uc548 \ub2e4\uc74c \ub2e8\uacc4\ub97c \uacc4\uc18d \uc9c4\ud589\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
\uce74\uc6b0\uce58\ubca0\uc774\uc2a4\uc5d0\uc11c N1QL \ucffc\ub9ac \ud14c\uc2a4\ud2b8\ud558\uae30<\/span><\/h2>\n
R \ud504\ub85c\uadf8\ub798\ubc0d \ucf54\ub4dc\ub97c \uc2dc\uc791\ud558\uae30 \uc804\uc5d0 \ucffc\ub9ac \ud0ed\uc744 \uc0ac\uc6a9\ud558\uc5ec \ucffc\ub9ac\ub97c \ud14c\uc2a4\ud2b8\ud574 \ubcf4\uaca0\uc2b5\ub2c8\ub2e4. <\/span>\uce74\uc6b0\uce58\ubca0\uc774\uc2a4 \uc6f9 \ucf58\uc194<\/span><\/a>.<\/span><\/p>\n
SELECT a.name, count(*) as total_flights\r\nFROM `travel-sample` r \r\nJOIN `travel-sample` a \r\nON KEYS r.airlineid \r\nWHERE r.type =\"route\" \r\nAND a.type=\"airline\" \r\nGROUP BY a.name \r\nORDER BY total_flights DESC \r\nLIMIT 20<\/pre>\n
\uc774\uc804\uc5d0 JSON \uc791\uc5c5\uc744 \ud574\ubcf8 \uc801\uc774 \uc788\ub2e4\uba74 \uc775\uc219\ud55c \uad6c\ubb38\uc744 \uc0ac\uc6a9\ud558\uc5ec Couchbase\uc758 \ubb38\uc11c\uc5d0\uc11c \ucffc\ub9ac\ud558\ub294 \uac83\uc774 \uc5bc\ub9c8\ub098 \uac04\ub2e8\ud55c\uc9c0 \uc54c \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/p>\n
\uacb0\uacfc\ub294 \uc0d8\ud50c \ub370\uc774\ud130\ubca0\uc774\uc2a4\uc5d0 \uc788\ub294 \uc0c1\uc704 20\uac1c \ud56d\uacf5\uc0ac\uc640 \uac01 \ud56d\uacf5\uc0ac\uc758 \ud56d\uacf5\ud3b8 \uc218\ub97c \ubcf4\uc5ec\uc90d\ub2c8\ub2e4.<\/span><\/p>\n
R \ucf54\ub529 N1QL \ucffc\ub9ac<\/span><\/h2>\n
\ucf58\uc194\uc758 \uc2a4\ud06c\ub9bd\ud2b8 \uc0c1\ub2e8\uc5d0 \uc788\ub294 \ub77c\uc774\ube0c\ub7ec\ub9ac \uc694\uad6c \uc0ac\ud56d\uc744 \uc124\uc815\ud558\uc5ec R \ud504\ub85c\uc81d\ud2b8\ub97c \uc124\uc815\ud569\ub2c8\ub2e4:<\/span><\/p>\n
library(httr) \r\nlibrary(jsonlite) \r\nlibrary(ggplot2) \r\nlibrary(leaflet)<\/pre>\n
\ucffc\ub9ac\ub97c \uc791\uc131\ud558\uace0 \ub370\uc774\ud130 \uc751\ub2f5\uc744 \ucc98\ub9ac\ud558\uae30 \uc704\ud574 \uba87 \uac00\uc9c0 \ubcc0\uc218\ub97c \uc0dd\uc131\ud569\ub2c8\ub2e4.<\/span><\/p>\n
\uba3c\uc800 URL, \ud3ec\ud2b8, \uc774\uc804\uc5d0 \uc0dd\uc131\ud55c \uc0ac\uc6a9\uc790 \uc544\uc774\ub514\uc640 \ube44\ubc00\ubc88\ud638\ub97c \ud3ec\ud568\ud558\uc5ec Couchbase\uc5d0 \ub300\ud55c \uc5f0\uacb0 \uc815\ubcf4\uac00 \uc81c\uacf5\ub429\ub2c8\ub2e4:<\/span><\/p>\n
cbServer <- \"https:\/\/localhost:8093\/query\/service\"<\/pre>\n
\uadf8\ub7f0 \ub2e4\uc74c \ucffc\ub9ac\ub97c \uc790\uccb4 \ubcc0\uc218\ub85c\ub3c4 \uc778\ucf54\ub529\ud569\ub2c8\ub2e4. \ud544\uc694\ud55c \uc774\uc2a4\ucf00\uc774\ud504 \ud070\ub530\uc634\ud45c(\\\")\uc5d0 \uc720\uc758\ud558\uc138\uc694.<\/span><\/p>\n
query <- \"SELECT a.name, count(*) as total_flights FROM `travel-sample` r JOIN `travel-sample` a ON KEYS r.airlineid WHERE r.type =\\\"route\\\" AND a.type=\\\"airline\\\" GROUP BY a.name ORDER BY total_flights DESC LIMIT 20\"<\/pre>\n
\ub2e4\uc74c\uc740 HTTP \uc694\uccad\uc744 \uc124\uc815\ud558\ub294 \uac83\uc785\ub2c8\ub2e4:<\/span><\/p>\n
req <- httr::POST(cbServer, httr::add_headers(\"Content-Type\" = \"application\/x-www-form-urlencoded;charset=UTF-8\"), body = paste(\"statement=\", query), authentication(\"public\",\"public\"))<\/pre>\n
\uadf8\ub7f0 \ub2e4\uc74c \uc694\uccad\uc5d0\uc11c \uc2e4\uc81c \uc751\ub2f5\uc744 \uc218\uc2e0\ud558\uace0 \ub370\uc774\ud130\ub97c \uc800\uc7a5\ud560 \ubcc0\uc218\uc5d0 \ud560\ub2f9\ud569\ub2c8\ub2e4:<\/span><\/p>\n
res <- fromJSON(httr::content(req, \"text\")) \r\nairlineFlights <- res$results<\/pre>\n
 <\/p>\n
\"Couchbase<\/a><\/p>\n
\uadf8\uac70\uc608\uc694!\u00a0<\/span><\/p>\n
\uce74\uc6b0\uce58\ubca0\uc774\uc2a4\uc5d0\uc11c \ucffc\ub9ac \uacb0\uacfc \uc2dc\uac01\ud654\ud558\uae30<\/span><\/h2>\n
\uc774\uc81c \ub370\uc774\ud130 \ubcc0\uc218\ub97c \uc785\ub825\ud558\uba74 \ucffc\ub9ac \uacb0\uacfc\ub97c \ud655\uc778\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4:<\/span><\/p>\n
R-Studio\ub294 ggplot \ud655\uc7a5 \ubc0f \uba87 \uac00\uc9c0 \uc124\uc815\uc744 \ud1b5\ud574 \ubcc0\uc218\uc758 \ub370\uc774\ud130\ub97c \ube60\ub974\uac8c \ubcfc \uc218 \uc788\ub294 \uac04\ub2e8\ud55c \ubc29\ubc95\uc785\ub2c8\ub2e4:<\/span><\/p>\n
ggplot(data=airlineFlights, aes(x=name, y=total_flights)) + theme(axis.text.x=element_text(angle=90,hjust=1)) + geom_bar(stat=\"identity\")<\/pre>\n
\"Couchbase<\/a><\/p>\n
\uc774\uc81c \ucffc\ub9ac \ub610\ub294 ggplot \ucf54\ub4dc\ub97c \uc870\uc815\ud558\uace0 \ub2e4\ub978 \uc811\uadfc \ubc29\uc2dd\uc744 \uc2e4\ud5d8\ud574 \ubcfc \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
R \ucf54\ub529\uc744 \uc0ac\uc6a9\ud558\uc5ec \uce74\uc6b0\uce58\ubca0\uc774\uc2a4\uc5d0\uc11c \uc9c0\ub9ac\uacf5\uac04 \ub370\uc774\ud130 \ub9e4\ud551\ud558\uae30<\/span><\/h2>\n
\ub2e4\ub978 \uc77c\ubd80 \ud328\ud0a4\uc9c0\uc758 \uc131\ub2a5\uc740 \ub180\ub78d\uc2b5\ub2c8\ub2e4. \ub2e4\uc74c \uc608\uc81c\uc5d0\uc11c\ub294 R \ucf54\ub529\uc744 \uc0ac\uc6a9\ud558\uc5ec <\/span>\ub9ac\ud50c\ub81b \uc6f9 \ub9e4\ud551 \ub77c\uc774\ube0c\ub7ec\ub9ac<\/span><\/a>.\u00a0<\/span><\/p>\n
\ubc18\ub824\ub3d9\ubb3c \ub3d9\ubc18\uc774 \uac00\ub2a5\ud55c \ud638\ud154\uc744 \ub098\uc5f4\ud558\ub3c4\ub85d \ucffc\ub9ac\ub97c \ubcc0\uacbd\ud574 \ubcf4\uaca0\uc2b5\ub2c8\ub2e4. \ud638\ud154 \ub370\uc774\ud130\uc5d0\ub294 \uc9c0\ub9ac\uc801 \uc704\ub3c4 \ubc0f \uacbd\ub3c4 \uac1c\uccb4(\"geo\")\uac00 \ud3ec\ud568\ub418\uc5b4 \uc788\uc73c\ubbc0\ub85c \uc27d\uac8c \uc9c0\ub3c4<\/a> \uc758 \uacb0\uacfc\ub97c \ud45c\uc2dc\ud569\ub2c8\ub2e4.<\/span><\/p>\n
\uba87 \uac00\uc9c0 \uac04\ub2e8\ud55c \ud544\ud130\uc640 \ud568\uaed8 \uc774\ub984, \uc704\ub3c4, \uacbd\ub3c4\ub97c \ud3ec\ud568\ud558\ub3c4\ub85d \ucffc\ub9ac\ub97c \uc870\uc815\ud558\uc138\uc694:<\/span><\/p>\n
SELECT name,geo.lat as lat,geo.lon as long \r\nFROM `travel-sample` \r\nWHERE type=\"hotel\" AND city=\"London\" AND pets_ok=true<\/pre>\n
Couchbase \uc6f9 \ucf58\uc194\uc5d0\uc11c \ud14c\uc2a4\ud2b8\ud558\uba74 37\uac1c\uc758 \uacb0\uacfc\ub97c \uc5bb\uc744 \uc218 \uc788\uc2b5\ub2c8\ub2e4. \uadf8\ub7f0 \ub2e4\uc74c \uc774\uc804\uacfc \ub9c8\ucc2c\uac00\uc9c0\ub85c \ucffc\ub9ac\ub97c \ubcc0\uc218\uc5d0 \ub123\uc2b5\ub2c8\ub2e4:<\/span><\/p>\n
query <- \"SELECT name, geo.lat as lat, geo.lon as long FROM `travel-sample` WHERE type=\\\"hotel\\\" AND city=\\\"London\\\" AND pets_ok=true\" \r\nreq <- httr::POST(cbServer, httr::add_headers(\"Content-Type\" = \"application\/x-www-form-urlencoded;charset=UTF-8\"), body = paste(\"statement=\", query), authentication(\"public\",\"public\")) res <- fromJSON(httr::content(req, \"text\")) \r\npetFriendlyHotelsLondon <- res$results<\/pre>\n
\uacb0\uacfc\ub294 \ub2e4\uc74c\uacfc \ube44\uc2b7\ud558\uac8c \ud45c\uc2dc\ub429\ub2c8\ub2e4:<\/span><\/p>\n
\"Couchbase<\/a><\/p>\n
\uc9c0\ub3c4\ub97c \ub9cc\ub4e4\uae30 \uc704\ud574 \ub9ac\ud50c\ub81b \ud328\ud0a4\uc9c0\ub97c \uc0ac\uc6a9\ud558\uace0 \uc9c0\ub3c4\uc5d0\uc11c \ub9c8\ucee4 \uc2ec\ubcfc\uc744 \ucc3e\ub294 \ub370 \uc0ac\uc6a9\ud560 \ud544\ub4dc\ub97c \uc2dd\ubcc4\ud558\ub294 \uba87 \uac00\uc9c0 \uc124\uc815\uc744 \uc81c\uacf5\ud569\ub2c8\ub2e4.<\/span><\/p>\n
leaflet(data = petFriendlyHotelsLondon) %>% addTiles() %>% addMarkers(~long, ~lat, popup = ~as.character(name), label = ~as.character(name)) %>% addProviderTiles(providers$OpenStreetMap)<\/pre>\n
R Studio\ub294 \ucf54\ub4dc \ud3b8\uc9d1, \ub300\ud654\ud615 \ucf58\uc194, \ub9f5\uc744 \ud3ec\ud568\ud55c \ub0b4\uc7a5 \ubdf0\uc5b4 \uad6c\uc131 \uc694\uc18c(\uc774\uc804 \ucc28\ud2b8\uc5d0\uc11c ggplot\uc774 \ud588\ub358 \uac83\ucc98\ub7fc)\ub97c \uc0ac\uc6a9\ud560 \uc218 \uc788\ub294 \ud48d\ubd80\ud55c \uc815\ubcf4\ub97c \uc81c\uacf5\ud558\ub294 \ud6cc\ub96d\ud55c IDE\uc785\ub2c8\ub2e4.\u00a0<\/span><\/p>\n
\"Couchbase<\/a><\/p>\n
\ubb3c\ub860 \uadf8\uc5d0 \ub530\ub77c \ucc3d \ucc3d\uc744 \ud655\uc7a5\ud560 \uc218\ub3c4 \uc788\uc2b5\ub2c8\ub2e4:<\/span><\/p>\n
\"Couchbase<\/a><\/p>\n
\uacb0\ub860<\/span><\/h2>\n
\uac15\ub825\ud55c \ud0c0\uc0ac \ud328\ud0a4\uc9c0 \uc138\ud2b8\uac00 \ud3ec\ud568\ub41c Couchbase\uc640 R\uc758 \uc720\uc5f0\uc131\uc740 \ud6cc\ub96d\ud55c \uc870\ud569\uc785\ub2c8\ub2e4. \uc560\ud50c\ub9ac\ucf00\uc774\uc158 \uac1c\ubc1c\uc790\ub294 \ub370\uc774\ud130\ub97c \uc911\uc559 \ub370\uc774\ud130\ubca0\uc774\uc2a4\uc5d0 \ub0a8\uaca8\ub450\uace0 \uc7a5\uc560 \uc870\uce58, \ubd84\uc0b0 \ucc98\ub9ac, \uc804\uccb4 \ud14d\uc2a4\ud2b8 \uac80\uc0c9 \ubc0f SQL \ubd84\uc11d\uc744 \ud65c\uc6a9\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.\u00a0<\/span><\/p>\n
\ud55c\ud3b8, \ub3d9\uc77c\ud55c \ub370\uc774\ud130\ubca0\uc774\uc2a4\ub97c \uc5ec\ub7ec \uac1c\uc758 \uc624\ud504\ub77c\uc778 \ubcf5\uc0ac\ubcf8\uc744 \ub9cc\ub4e4\uc9c0 \uc54a\uace0\ub3c4 \ub370\uc774\ud130\uc5d0 \uc561\uc138\uc2a4\ud558\uae30 \uc704\ud574 \uc0ac\uc6a9\ud558\uae30 \uc26c\uc6b4 API\uac00 \ud544\uc694\ud55c \ubd84\uc11d\uac00\uc5d0\uac8c \uc11c\ube44\uc2a4\ub97c \uc81c\uacf5\ud560 \uc218 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
\uc774 \ud3ec\uad04\uc801\uc778 \ub370\uc774\ud130 \ud50c\ub7ab\ud3fc \uc811\uadfc \ubc29\uc2dd\uc740 \uc544\ud0a4\ud14d\ucc98\ub97c \uac04\uc18c\ud654\ud558\ub294 \ub3d9\uc2dc\uc5d0 \uc548\uc815\uc131\uacfc \ud655\uc7a5\uc131\uc744 \ub192\uc5ec\uc57c \ud558\ub294 \ubaa8\ub4e0 \uaddc\ubaa8\uc758 \uae30\uc5c5\ub4e4\uc5d0\uac8c \uc9c0\uc18d\uc801\uc73c\ub85c \uc778\uae30\ub97c \ub04c\uace0 \uc788\uc2b5\ub2c8\ub2e4.<\/span><\/p>\n
\ucd94\uac00 \uc77d\uae30<\/span><\/h2>\n