Statystyka, prognozowanie, ekonometria, data mining Strona Główna
Reklama pqstat.pl
Statystyka, prognozowanie, ekonometria, data mining
Forum miłośników statystyki - Portal Statystyczny

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy  StatystykiStatystyki
RejestracjaRejestracja  ZalogujZaloguj  Chat   Regulamin  Kadra forum
PORTAL STATYSTYCZNY
 Ogłoszenie 
FORUM STATYSTYCZNE MA JUŻ 10 LAT

Znasz statystykę lub ekonometrię, metody prognozowania, data mining i chcesz pomóc w rozwoju forum statystycznego ?
Pisz na: administrator(małpa)statystycy.pl

Rozpoczął swoją działalność portal statystyczny - masz pomysł na jego rozwój ?

Drogi forumowiczu! Zanim napiszesz posta zapoznaj się z regulaminem forum i przedstaw się
The International Year of Statistics (Statistics2013) Smarter Poland Portal statystyczny

Poprzedni temat «» Następny temat

Tagi tematu: Brak tagów.

dodanie legendy do wykresu
Autor Wiadomość
butch 
Szeregowy
Butch


Posty: 5
Skąd: Poznań
Wysłany: 2014-04-02, 18:16   dodanie legendy do wykresu

Witam

Potrzebuje pomocy w dodaniu legendy, cos nie bardzo mi to idzie:/

używam R-Studio 0.98.501

Kod:

#model wzrostu populacji o reprodukcji bez wspolczynnika regulacji#

t<-1:25
R0<-1.3
N0<-100
N1<-N0*R0^t
plot(N1,type = "l", col="purple", xlab= "Pokolenie", ylab= "Liczebnosc populacji", las=2, lwd=3, cex.lab = 1.3)
points(N1, col = "purple", pch = 10, lwd = 2)
title(main= 'Model populacji bez wspolczynnika regulacji')

#model wzrostu populacji o reprodukcji ze wspolczynnikiem regulacji zaleznej od zageszczenia#

t<-25
N2<-R0<-numeric(t)
N2[1]<-10
B<-0.011
Neq<-100
for(i in 1:(t-1))
{
  N2[i+1]<-N2[i]*(1-B*(N2[i]-Neq))
  R0[i+1]<-(1-B*(N2[i]-Neq))
}

plot(N2, type = "l", col="blue", xlab= "Pokolenie", ylab= "Liczebnosc populacji",las=1, lwd=3, ylim=c(0,180), cex.lab = 1.3)

#model wzrostu populacji z regulacja zalezna od zageszczenia i opoznieniem#
t<-25
N3<-R0<-numeric(t)
N3[1]<-10
B<-0.011
Neq<-100
R0[1]<-(1-B*(N3[1]-Neq))

for(i in 1:1)
{
  N3[i+1]<-N3[i]*(1-B*(N3[i]-Neq))
  R0[i+1]<-1-B*(N3[i]-Neq)
}
for(i in 2:(t-1))
{
  N3[i+1]<-N3[i]*(1-B*(N3[i-1]-Neq))
  R0[i+1]<-1-B*(N3[i-1]-Neq)
}

lines(N3,type = "l", col="green", xlab= "Pokolenie", ylab= "Liczebnosc populacji", lwd=3)
title(main="Model wzrostu populacji z regulacja zalezna od zageszczenia i opoznieniem")


legenda jest potrzebna zarówno w pierwszym wykresie dla populacji bez współczynnika regulacji jak i dla połączonego tj. dla populacji z regulacją zależną od zagęszczenia jak i z opóźnieniem

będę wdzięczny za pomoc
Ostatnio zmieniony przez butch 2014-04-02, 18:20, w całości zmieniany 1 raz  
 
     
Google

Wysłany:    Reklama google.

 
 
piotrek 
Podporucznik


Pomógł: 13 razy
Posty: 198
Skąd: b.d.
Wysłany: 2014-04-03, 17:26   

Jest polecenie
Kod:
?legend
 
     
butch 
Szeregowy
Butch


Posty: 5
Skąd: Poznań
Wysłany: 2014-04-03, 17:53   

wiem, ale po 3 godzinach prob zrezygnowalem i postanowilem poszukac pomocy u osob ktore lepiej znaja R....

po prostu nie wiem jakie parametry nadac, zeby bylo ok.
 
     
piotrek 
Podporucznik


Pomógł: 13 razy
Posty: 198
Skąd: b.d.
Wysłany: 2014-04-03, 19:00   

OK,

Kod:
#model wzrostu populacji o reprodukcji bez wspolczynnika regulacji#

t<-1:25
R0<-1.3
N0<-100
N1<-N0*R0^t
plot(N1,type = "l", col="purple", xlab= "Pokolenie", ylab= "Liczebnosc populacji", las=2, lwd=3, cex.lab = 1.3)
points(N1, col = "purple", pch = 10, lwd = 2)
title(main= 'Model populacji bez wspolczynnika regulacji')

#model wzrostu populacji o reprodukcji ze wspolczynnikiem regulacji zaleznej od zageszczenia#

t<-25
N2<-R0<-numeric(t)
N2[1]<-10
B<-0.011
Neq<-100
for(i in 1:(t-1))
{
  N2[i+1]<-N2[i]*(1-B*(N2[i]-Neq))
  R0[i+1]<-(1-B*(N2[i]-Neq))
}

plot(N2, type = "l", col="blue", xlab= "Pokolenie", ylab= "Liczebnosc populacji",las=1, lwd=3, ylim=c(0,180), cex.lab = 1.3)

#model wzrostu populacji z regulacja zalezna od zageszczenia i opoznieniem#
t<-25
N3<-R0<-numeric(t)
N3[1]<-10
B<-0.011
Neq<-100
R0[1]<-(1-B*(N3[1]-Neq))

for(i in 1:1)
{
  N3[i+1]<-N3[i]*(1-B*(N3[i]-Neq))
  R0[i+1]<-1-B*(N3[i]-Neq)
}
for(i in 2:(t-1))
{
  N3[i+1]<-N3[i]*(1-B*(N3[i-1]-Neq))
  R0[i+1]<-1-B*(N3[i-1]-Neq)
}

lines(N3,type = "l", col="green", xlab= "Pokolenie", ylab= "Liczebnosc populacji", lwd=3)
title(main="Model wzrostu populacji z regulacja zalezna od zageszczenia i opoznieniem")



# dodałem dwie linie

tekst.legendy <- c("Linia 1", "Linia 2")
legend("topright", tekst.legendy, col = c("blue", "green"), lty = 5, lwd = 5)


O to chodziło?
Oczywiście elementami można manipulować :-)
Ostatnio zmieniony przez piotrek 2014-04-03, 19:03, w całości zmieniany 1 raz  
 
     
butch 
Szeregowy
Butch


Posty: 5
Skąd: Poznań
Wysłany: 2014-04-03, 19:25   

serdeczne dzięki :)

jeszcze tylko jedno pytanie.
Czy jest możliwość wyrzucenia go poza wykres tak żeby go nie zniekształcić ???

wiem że "topright" umiejscawia po prawej w zakresie wykresu ale poza tym nie znam komendy żeby przesunąć legendę tak żeby cały wykres był widoczny.

jeśli to skomplikowane to się nie kłopocz - i tak bardzo pomogłeś :)

i jeszcze raz dziękuje :)
Ostatnio zmieniony przez butch 2014-04-03, 19:26, w całości zmieniany 1 raz  
 
     
piotrek 
Podporucznik


Pomógł: 13 razy
Posty: 198
Skąd: b.d.
Wysłany: 2014-04-03, 20:05   

Nie ma problemu
Kod:
#model wzrostu populacji o reprodukcji bez wspolczynnika regulacji#

t<-1:25
R0<-1.3
N0<-100
N1<-N0*R0^t
plot(N1,type = "l", col="purple", xlab= "Pokolenie", ylab= "Liczebnosc populacji", las=2, lwd=3, cex.lab = 1.3)
points(N1, col = "purple", pch = 10, lwd = 2)
title(main= 'Model populacji bez wspolczynnika regulacji')

#model wzrostu populacji o reprodukcji ze wspolczynnikiem regulacji zaleznej od zageszczenia#

t<-25
N2<-R0<-numeric(t)
N2[1]<-10
B<-0.011
Neq<-100
for(i in 1:(t-1))
{
  N2[i+1]<-N2[i]*(1-B*(N2[i]-Neq))
  R0[i+1]<-(1-B*(N2[i]-Neq))
}

################################################
########################### ustawiamy marginesy
par(mar=c(5.0, 4.0, 4.0, 8.0), xpd=TRUE)

###############################################
################################################

plot(N2, type = "l", col="blue", xlab= "Pokolenie", ylab= "Liczebnosc populacji",las=1, lwd=3, ylim=c(0,180), cex.lab = 1.3)

#model wzrostu populacji z regulacja zalezna od zageszczenia i opoznieniem#
t<-25
N3<-R0<-numeric(t)
N3[1]<-10
B<-0.011
Neq<-100
R0[1]<-(1-B*(N3[1]-Neq))

for(i in 1:1)
{
  N3[i+1]<-N3[i]*(1-B*(N3[i]-Neq))
  R0[i+1]<-1-B*(N3[i]-Neq)
}
for(i in 2:(t-1))
{
  N3[i+1]<-N3[i]*(1-B*(N3[i-1]-Neq))
  R0[i+1]<-1-B*(N3[i-1]-Neq)
}

lines(N3,type = "l", col="green", xlab= "Pokolenie", ylab= "Liczebnosc populacji", lwd=3)
title(main="Model wzrostu populacji z regulacja zalezna od zageszczenia i opoznieniem")



# inset!

tekst.legendy <- c("Linia 1", "Linia 2")
legend("topright", tekst.legendy, col = c("blue", "green"), lty = 5, lwd = 5, inset=c(-0.3,0))


Trochę musisz poeksprymentować z ustawieniami.
 
     
butch 
Szeregowy
Butch


Posty: 5
Skąd: Poznań
Wysłany: 2014-04-03, 20:48   

naprawde bardzo dziekuje :)


wlasnie pomogles podniesc poziom projektu na zaliczenie :)

ogolnie jestem z R noga - potrzebuje wskazowek bo dawno nie uzywalem zadnego jezyka programowania i zapomnialem myslec w taki sposob :P

ten kod co wkleilem to byla ciezka robota z pomoca typu wskazowki co zrobic (kod akurat moj) i jak ma dzialac ale co do legendy to poleglem :P

jeszcze raz bardzo dziekuje :)
 
     
piotrek 
Podporucznik


Pomógł: 13 razy
Posty: 198
Skąd: b.d.
Wysłany: 2014-04-03, 20:56   

Cieszę się, że mogłem pomóc :-)
 
     
butch 
Szeregowy
Butch


Posty: 5
Skąd: Poznań
Wysłany: 2014-04-03, 21:02   

masz ode mnie punkcik ;)
 
     
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych zakładek(IE)
Wersja do druku

Skocz do:  

Podobne Tematy
Temat Autor Forum Odpowiedzi Ostatni post
Brak nowych postów Przyklejony: Dobór trendu, rodzaj wykresu
k0tus Metody prognostyczne 34 2011-05-27, 17:42
anecik162
Brak nowych postów Dodanie i oszacowanie zmiennej 0-1 do modelu
angie Modelowanie ekonometryczne 1 2012-06-21, 12:36
Orm
Brak nowych postów Dodawanie legendy na wykresie pudełkowym
Nie mogę dodać legendy
Rafał Statystyka opisowa 8 2014-03-23, 13:12
Crunchy
Brak nowych postów Błąd odczytu z wykresu
Naethriel Statystyka opisowa 0 2010-06-22, 21:26
Naethriel
Brak nowych postów Interpretacja wykresu
statsy Metody prognostyczne 1 2017-01-20, 07:43
Shidley

Ideą przyświecającą istnieniu forum statystycznego jest stworzenie możliwości wymiany informacji, poglądów i doświadczeń osób związanych ze statystyką, mierzenie się z różnego rodzaju problemami statystycznymi i aktuarialnymi. Poruszane problemy: Statystyka w badaniach sondażowych rynku, metody reprezentacyjne, Teoria i rachunek prawdopodobieństwa, statystyka opisowa, teoria estymacji, testowanie hipotez statystycznych, ekonometria, prognozowanie, metody data mining.
Copyright (C) 2006-2015 Statystycy.pl
Powered by phpBB modified by Przemo © 2003 phpBB Group
Strona wygenerowana w 0,07 sekundy. Zapytań do SQL: 23