Citat:
Ursprungligen postat av
RogerEricsson
Tack för svar, men jag ville ha gult under grafen ner till x-axeln. Kanske inte går?
Något i stil med detta kanske?
Kod:
data = {145, 168, 144, 137, 158, 142};
ListLinePlot[data, AxesOrigin -> {1, 0}, PlotStyle -> {Black},
Filling -> Axis, FillingStyle -> Yellow,
FrameStyle -> Thickness[1/200], Frame -> True,
PlotRange -> {{1, 6}, {0, 200}},
FrameTicks -> {{{#, #, {.025, 0}} & /@ Range[50, 150, 50],
None}, {{#, #, {.025, 0}} & /@ Range[1, 6], None}}]
MS Excel är lite ”vassare” på diagram med sina förinställda "effekter" så om du har detta program kan det vara en möjlighet att skapa diagram. Men det mesta går i Mathematica.
Jag hade personligen velat ha lite ”luft” och skrivit
Kod:
PlotRange -> {{.5, 6.5}, {0, 200}}
Mitt öga tål ej att (1,0) är ”origo” …
Då avståndet 0-1 då är kortare än 1-2 föranleder detta att man eg. borde ha en sick-sack-linje eller likn. Här är en längre utläggning om hur man skulle kunna göra detta
https://mathematica.stackexchange.co...is-in-listplot