ไฟล์:Countries by Military expenditures (% of GDP) in 2014 v2.svg

ไม่รองรับเนื้อหาของหน้าในภาษาอื่น
จากวิกิพีเดีย สารานุกรมเสรี

ดูภาพที่มีความละเอียดสูงกว่า((ไฟล์ SVG, 512 × 288 พิกเซล, ขนาดไฟล์: 1.52 เมกะไบต์))

Wikimedia Commons logo รูปภาพหรือไฟล์เสียงนี้ ต้นฉบับอยู่ที่ คอมมอนส์ รายละเอียดด้านล่าง เป็นข้อความที่แสดงผลจาก ไฟล์ต้นฉบับในคอมมอนส์
คอมมอนส์เป็นเว็บไซต์ในโครงการสำหรับเก็บรวบรวมสื่อเสรี ที่ คุณสามารถช่วยได้

ความย่อ

คำอธิบาย
English: Based on the Worldbank data from http://data.worldbank.org/indicator/MS.MIL.XPND.GD.ZS This is an intentional duplicate of https://commons.wikimedia.org/wiki/File:Countries_by_Military_expenditures_(%25_of_GDP)_in_2014.svg created with freely available R packages (so that it can be recreated effortlessly).
วันที่
แหล่งที่มา Created with R
ผู้สร้างสรรค์ Pipping

การอนุญาตใช้สิทธิ

ข้าพเจ้า ในฐานะผู้ถือลิขสิทธิ์ของภาพหรือสื่อนี้ อนุญาตให้ใช้ภาพหรือสื่อนี้ภายใต้เงื่อนไขต่อไปนี้
w:th:ครีเอทีฟคอมมอนส์
แสดงที่มา อนุญาตแบบเดียวกัน
คุณสามารถ:
  • ที่จะแบ่งปัน – ที่จะทำสำเนา แจกจ่าย และส่งงานดังกล่าวต่อไป
  • ที่จะเรียบเรียงใหม่ – ที่จะดัดแปลงงานดังกล่าว
ภายใต้เงื่อนไขต่อไปนี้:
  • แสดงที่มา – คุณต้องให้เกียรติเจ้าของงานอย่างเหมาะสม โดยเพิ่มลิงก์ไปยังสัญญาอนุญาต และระบุหากมีการเปลี่ยนแปลง คุณอาจทำเช่นนี้ได้ในรูปแบบใดก็ได้ตามควร แต่ต้องไม่ใช่ในลักษณะที่แนะว่าผู้ให้อนุญาตสนับสนุนคุณหรือการใช้งานของคุณ
  • อนุญาตแบบเดียวกัน – หากคุณดัดแปลง เปลี่ยนรูป หรือต่อเติมงานนี้ คุณต้องใช้สัญญาอนุญาตแบบเดียวกันหรือแบบที่เหมือนกับสัญญาอนุญาตที่ใช้กับงานนี้เท่านั้น

Created with the following piece of code:

library(magrittr)

selectedYear <- 2014

getWorldBankData <- function(indicatorCode, indicatorName) {
    baseName <- paste('API', indicatorCode, 'DS2_en_csv_v2', sep='_')
    ## Download zipfile if necessary
    zipfile <- paste(baseName, 'zip', sep='.')
    if (!file.exists(zipfile)) {
        zipurl <- paste(paste('http://api.worldbank.org/v2/en/indicator',
                              indicatorCode, sep='/'),
                        'downloadformat=csv', sep='?')
        download.file(zipurl, zipfile)
    }
    csvfile <- paste(baseName, 'csv', sep='.')
    ## This produces a warning because of the trailing commas. Safe to ignore.
    readr::read_csv(unz(zipfile, csvfile), skip=4,
                    col_types = list(`Indicator Name` = readr::col_character(),
                                     `Indicator Code` = readr::col_character(),
                                     `Country Name` = readr::col_character(),
                                     `Country Code` = readr::col_character(),
                                     .default = readr::col_double())) %>%
        dplyr::select(-c(`Indicator Name`, `Indicator Code`, `Country Name`))
}

## Obtain and merge World Bank data
worldBankData <- getWorldBankData('MS.MIL.XPND.GD.ZS') %>%
    tidyr::gather(-`Country Code`, convert=TRUE,
                  key='Year', value=`Military expenditure (% of GDP)`,
                  na.rm = TRUE) %>%
    dplyr::filter(Year == selectedYear) %>%
    dplyr::mutate(Year = NULL)

## Plotting: Obtain Geographic data
mapData <- tibble::as.tibble(ggplot2::map_data("world")) %>%
    dplyr::mutate(`Country Code` =
                      countrycode::countrycode(region, "country.name", "iso3c"),
                  ## This produces a warning but I do not see how we could do better
                  ## since we started with fuzzy names.
                  region = NULL, subregion = NULL)

combinedData <- dplyr::left_join(mapData, worldBankData)

ggplot2::ggplot(data = combinedData, ggplot2::aes(long,lat)) +
    ggplot2::geom_polygon(ggplot2::aes(group = group,
                                       fill  = `Military expenditure (% of GDP)`),
                          color = '#606060', lwd=0.05) +
    ggplot2::scale_fill_gradientn(colours= rev(viridis::magma(256, alpha = 0.5)),
                                  name = "% GDP",
                                  breaks = 2*0:50,
                                  limits = c(0,14)) +
    ggplot2::coord_fixed() +
    ggplot2::theme_bw() +
    ggplot2::theme(plot.title = ggplot2::element_text(hjust = 0.5),
          axis.title = ggplot2::element_blank(),
          axis.text = ggplot2::element_blank(),
          axis.ticks = ggplot2::element_blank(),
          panel.grid.major = ggplot2::element_blank(),
          panel.grid.minor = ggplot2::element_blank(),
          panel.border = ggplot2::element_blank(),
          panel.background = ggplot2::element_blank()) +
    ggplot2::labs(title = paste("Countries by military expenditures in",
                                selectedYear))

ggplot2::ggsave(paste(selectedYear, 'militrary_expenditures_relative.svg', sep='_'),
                height=100, units='mm')

คำบรรยายโดยย่อ

เพิ่มคำบรรยายทรรทัดเดียวเพื่อขยายความว่าไฟล์นี้มีอะไร

ไอเทมที่แสดงอยู่ในไฟล์นี้

ประกอบด้วย

media type อังกฤษ

image/svg+xml

checksum อังกฤษ

f7974ad3d785da2b8619ad810d11b3b76efdd51b

data size อังกฤษ

1,588,898 ไบต์

288 พิกเซล

512 พิกเซล

ประวัติไฟล์

คลิกวันที่/เวลาเพื่อดูไฟล์ที่ปรากฏในขณะนั้น

วันที่/เวลารูปย่อขนาดผู้ใช้ความเห็น
ปัจจุบัน21:30, 20 พฤษภาคม 2560รูปย่อสำหรับรุ่นเมื่อ 21:30, 20 พฤษภาคม 2560512 × 288 (1.52 เมกะไบต์)Pippingredo with dplyr
03:27, 12 พฤษภาคม 2560รูปย่อสำหรับรุ่นเมื่อ 03:27, 12 พฤษภาคม 2560512 × 256 (1.51 เมกะไบต์)PippingRegenerated with new data (last update upstream: 2017-04-27).
02:07, 15 ธันวาคม 2559รูปย่อสำหรับรุ่นเมื่อ 02:07, 15 ธันวาคม 2559512 × 256 (1.51 เมกะไบต์)PippingFixed scale for easier comparison with data from different years
01:43, 15 ธันวาคม 2559รูปย่อสำหรับรุ่นเมื่อ 01:43, 15 ธันวาคม 2559512 × 256 (1.51 เมกะไบต์)PippingUse a more appropriate resolution (makes the font smaller in relation)
00:10, 15 ธันวาคม 2559รูปย่อสำหรับรุ่นเมื่อ 00:10, 15 ธันวาคม 2559512 × 271 (1.49 เมกะไบต์)Pipping{{subst:Upload marker added by en.wp UW}} {{Information |Description = {{en|Based on the Worldbank data from http://data.worldbank.org/indicator/MS.MIL.XPND.GD.ZS This is an intentional duplicate of https://commons.wikimedia.org/wiki/File:Countries_by...

หน้าต่อไปนี้ โยงมาที่ภาพนี้:

การใช้ไฟล์ข้ามโครงการ

วิกิอื่นต่อไปนี้ใช้ไฟล์นี้:

ข้อมูลเกี่ยวกับภาพ