Wypowiedzi
-
Czy można jakoś łatwo przypisać punkty w podany przez Ciebie sposób do shapafile pobranego z gadm.org?
-
Chyba najłatwiej by było zamówić kody pocztowe na:
http://www.poczta-polska.pl/spispna/
i połączyć to z bazą danych:
http://gadm.org/data/rda/POL_adm2.RData
Ten zbiór to generalnie shapefile, ale uzupełniony o dodatkowe zmienne takie jak nazwa miejscowości. Wystarczyło by na odpowiednich kolumnach zapuścić komendę merge i już masz gotowy zbiór w którym masz shapefile i kody pocztowe przypisane. -
Witam,
mam następujący problem. Kopiując w Ubuntu do konsoli w której jest uruchomiony R dłuższe skrypty powstają błędy przy ich kopiowaniu - źle wklejają się znaki. Zastanawiam się więc czy istnieje możliwość aby napisać skrypt sh, który będzie uruchamiał R i wykonywał w nim wcześniej przygotowane skrypty *.r -
Ja do na macierzach, które zajmowały więcej niż 50Mb używałem już MySQL za pomocą pakietu:
http://cran.r-project.org/web/packages/RMySQL/ -
Jedyny pomysł to np zrobić 2d bubble chart uzupełniony o kolory symbolizujące wartości 1:18.
-
To co wkleiłem to są dokładne komendy... U mnie działają. Funkcja density() zwraca obiekt, który między innymi posiada atrybuty $x i $y, które jak użyjesz na tym obiekci funkcji plot dają przybliżony wykres gęstości rozkładu zmiennej przebadanej za pomocą funkcji density(). Może masz pakietu stats, ale w mojej wersji R jest on domyślnie zawsze ściągnięty i załadowany.
http://stat.ethz.ch/R-manual/R-patched/library/stats/h... -
x<-rnorm(100,0,1)
plot(density(x))
jak wywołasz funkcję gęstości to będzie gęstość... Czy czegoś innego potrzebujesz?Piotr Siejda edytował(a) ten post dnia 25.07.11 o godzinie 21:02 -
#Pomyślałem, że jeszcze to może się przydać:
#jak chcemy zobaczyć co za dane kryje jeszcze gadm:
data<-slot(gadm,"data") #wydobywamy dane z spatial data frame
labels(data)[2] #podglądamy co tam za dne są
data$NAME_1 #wyświetlamy województwa
gadm$NAME_1 #to samo można srobić na oryginalnym pliku -
# ściągnij plik z http://gadm.org/data/rda/POL_adm1.RData , jak chcesz aby były to powiaty zmień 1 na 2
install.packages("spdep")
library(spdep)
setwd("/home/piotr/Pulpit/studia/R-rozne/dane na mapie") # ustaw na katalog gdzie mapę ściągnąłeś
load("POL_adm1.RData")
crds<-coordinates(gadm)
text(crds[1:3,1],crds[1:3,2], c("AA AA","BB BB","CC CC"),col=1:3)
# :] Oczywiście zamiast AA AA - należy wpisać "osoby obsługujące" -
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy PRM
-
Krótki cytat z pierwszej strony Wall Street Journal z 25Listopada bieżącego roku:
"Citigroup Inc. shares jumped more than 50% as investors breathed a sigh of relief about the U.S. government's agreement to pump capital into the struggling bank and absorb potential losses on shaky loans and securuties.
[...]
Late Sunday night, the government said it would invest an additional $20 billion in Citigroup, and also absorb some potential future losses from a pool of $306 billion in assets. The troubled assets represent about 15% of bank's total"
Po takim krótkim wstępie sądzę, że większość z Was rozgrzewa się do czerwoności słysząc o Citigroup. Mam więc coś co Was może Was ucieszyć. Moje koło naukowe organizuje spotkanie z CEO citigroup na nasz region świata 8 grudnia o 18:30. Tematem spotkania będzie obecny kryzys gospodarczy.
Po więcej szczegółów zapraszam na:
http://www.sukces.wne.uw.edu.pl -
Krótki cytat z pierwszej strony Wall Street Journal z 25Listopada bieżącego roku:
"Citigroup Inc. shares jumped more than 50% as investors breathed a sigh of relief about the U.S. government's agreement to pump capital into the struggling bank and absorb potential losses on shaky loans and securuties.
[...]
Late Sunday night, the government said it would invest an additional $20 billion in Citigroup, and also absorb some potential future losses from a pool of $306 billion in assets. The troubled assets represent about 15% of bank's total"
Po takim krótkim wstępie sądzę, że większość z Was rozgrzewa się do czerwoności słysząc o Citigroup. Mam więc coś co Was może Was ucieszyć. Moje koło naukowe organizuje spotkanie z ceo citigroup na nasz region świata 8 grudnia o 18:30. Tematem spotkania będzie odpowiedzialność rad nadzorczych w korporacjach w okresie kryzysu.
Po więcej szczegółów zapraszam na:
http://www.sukces.wne.uw.edu.pl -
Krótki cytat z pierwszej strony Wall Street Journal z 25Listopada bieżącego roku:
"Citigroup Inc. shares jumped more than 50% as investors breathed a sigh of relief about the U.S. government's agreement to pump capital into the struggling bank and absorb potential losses on shaky loans and securuties.
[...]
Late Sunday night, the government said it would invest an additional $20 billion in Citigroup, and also absorb some potential future losses from a pool of $306 billion in assets. The troubled assets represent about 15% of bank's total"
Po takim krótkim wstępie sądzę, że większość z Was rozgrzewa się do czerwoności słysząc o Citigroup. Mam więc coś co Was może Was ucieszyć. Moje koło naukowe organizuje spotkanie z ceo citigroup na nasz region świata 8 grudnia o 18:30. Tematem spotkania będzie odpowiedzialność rad nadzorczych w korporacjach w okresie kryzysu.
Po więcej szczegółów zapraszam na:
http://www.sukces.wne.uw.edu.pl -
Krótki cytat z pierwszej strony Wall Street Journal z 25Listopada bieżącego roku:
"Citigroup Inc. shares jumped more than 50% as investors breathed a sigh of relief about the U.S. government's agreement to pump capital into the struggling bank and absorb potential losses on shaky loans and securuties.
[...]
Late Sunday night, the government said it would invest an additional $20 billion in Citigroup, and also absorb some potential future losses from a pool of $306 billion in assets. The troubled assets represent about 15% of bank's total"
Po takim krótkim wstępie sądzę, że większość z Was rozgrzewa się do czerwoności słysząc o Citigroup. Mam więc coś co Was może Was ucieszyć. Moje koło naukowe organizuje spotkanie z ceo citigroup na nasz region świata 8 grudnia o 18:30. Tematem spotkania będzie odpowiedzialność rad nadzorczych w korporacjach w okresie kryzysu.
Po więcej szczegółów zapraszam na:
http://www.sukces.wne.uw.edu.pl -
Krótki cytat z pierwszej strony Wall Street Journal z 25Listopada bieżącego roku:
"Citigroup Inc. shares jumped more than 50% as investors breathed a sigh of relief about the U.S. government's agreement to pump capital into the struggling bank and absorb potential losses on shaky loans and securuties.
[...]
Late Sunday night, the government said it would invest an additional $20 billion in Citigroup, and also absorb some potential future losses from a pool of $306 billion in assets. The troubled assets represent about 15% of bank's total"
Po takim krótkim wstępie sądzę, że większość z Was rozgrzewa się do czerwoności słysząc o Citigroup. Mam więc coś co Was może potencjalnie ostudzić. Moje koło naukowe organizuje spotkanie z ceo citigroup na nasz region świata 8 grudnia o 18:30. Tematem spotkania będzie odpowiedzialność rad nadzorczych w korporacjach w okresie kryzysu.
Po więcej szczegółów zapraszam na:
http://www.sukces.wne.uw.edu.pl