Our food habits campaign was about the snacks we eat throughout the
day. We learned that a lot of the typical snacks are not healthy at
all.
We collected the data by having us, the students, take certain
amounts of food surveys of what we snack on. the reasons we ate the
snack, and at what time we ate the snack.
I think I will learn which snacks we eat when we’re hungry and which
snacks we eat when they are available and why.
Question: When did students eat the most expensive snacks?
food <- read.csv("food.csv")
bargraph(~when | cost, data=food, type="percent", main="higher prices in snacks")

Students ate the most expensive snacks in the morning. Comparing them
all, most of the students ate their snacks in the afternoon and most of
the shapes of these graphs is a left skeem. The center for $1 to <
$3, $3 to < $7, and less than one is in the afternoon. The center for
$7 or more is in the morning.
Most of the students eat the most expensive snacks which are in the
range of $7 or more in the morning.
Question: How can the calories affect the healthy level in our
snacks?
dotPlot(~calories | healthy_level, data=food, main= "calories health level")

Shapes: top left graph is a left skeem, the one to the right of
it is symmetrical, and the bottom graphs are symmetrical
Centers: 180 for the top right, to the right of that its 100,
bottom right is around 190, to the right of that is around 190, the
bottom left around 185.
Spreads: top right is 400, next to that is 10, bottom right is
320, next to that is 500, next to that is 380
Calories can affect our healthy level in our snacks because it
determines which snacks are healthier and according to the graph most
snacks are not in the healthy range.
Question: Does the amount of ingredients affect the sugar that is in
a snack?
histogram(~ingredients | sugar, data=food, main="sugar affects the ingredients")

I created a graph that split the amount of sugar and ingredients to
see if there is any effect on it. Something interesting I noticed is
that there’s many things to look at and compare and there are all
different kinds of graphs.
It does affect it because the less ingredients the less sugar there
is but also the healthier the snack the less sugar it has.
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKT3VyIGZvb2QgaGFiaXRzIGNhbXBhaWduIHdhcyBhYm91dCB0aGUgc25hY2tzIHdlIGVhdCB0aHJvdWdob3V0IHRoZSBkYXkuIFdlIGxlYXJuZWQgdGhhdCBhIGxvdCBvZiB0aGUgdHlwaWNhbCBzbmFja3MgYXJlIG5vdCBoZWFsdGh5IGF0IGFsbC4KCldlIGNvbGxlY3RlZCB0aGUgZGF0YSBieSBoYXZpbmcgdXMsIHRoZSBzdHVkZW50cywgdGFrZSBjZXJ0YWluIGFtb3VudHMgb2YgZm9vZCBzdXJ2ZXlzIG9mIHdoYXQgd2Ugc25hY2sgb24uIHRoZSByZWFzb25zIHdlIGF0ZSB0aGUgc25hY2ssIGFuZCBhdCB3aGF0IHRpbWUgd2UgYXRlIHRoZSBzbmFjay4KCkkgdGhpbmsgSSB3aWxsIGxlYXJuIHdoaWNoIHNuYWNrcyB3ZSBlYXQgd2hlbiB3ZSdyZSBodW5ncnkgYW5kIHdoaWNoIHNuYWNrcyB3ZSBlYXQgd2hlbiB0aGV5IGFyZSBhdmFpbGFibGUgYW5kIHdoeS4KClF1ZXN0aW9uOiBXaGVuIGRpZCBzdHVkZW50cyBlYXQgdGhlIG1vc3QgZXhwZW5zaXZlIHNuYWNrcz8KCmBgYHtyfQpmb29kIDwtIHJlYWQuY3N2KCJmb29kLmNzdiIpCmJhcmdyYXBoKH53aGVuIHwgY29zdCwgZGF0YT1mb29kLCB0eXBlPSJwZXJjZW50IiwgbWFpbj0iaGlnaGVyIHByaWNlcyBpbiBzbmFja3MiKQpgYGAKU3R1ZGVudHMgYXRlIHRoZSBtb3N0IGV4cGVuc2l2ZSBzbmFja3MgaW4gdGhlIG1vcm5pbmcuIENvbXBhcmluZyB0aGVtIGFsbCwgbW9zdCBvZiB0aGUgc3R1ZGVudHMgYXRlIHRoZWlyIHNuYWNrcyBpbiB0aGUgYWZ0ZXJub29uIGFuZCBtb3N0IG9mIHRoZSBzaGFwZXMgb2YgdGhlc2UgZ3JhcGhzIGlzIGEgbGVmdCBza2VlbS4gVGhlIGNlbnRlciBmb3IgJDEgdG8gPCAkMywgJDMgdG8gPCAkNywgYW5kIGxlc3MgdGhhbiBvbmUgaXMgaW4gdGhlIGFmdGVybm9vbi4gVGhlIGNlbnRlciBmb3IgJDcgb3IgbW9yZSBpcyBpbiB0aGUgbW9ybmluZy4KCk1vc3Qgb2YgdGhlIHN0dWRlbnRzIGVhdCB0aGUgbW9zdCBleHBlbnNpdmUgc25hY2tzIHdoaWNoIGFyZSBpbiB0aGUgcmFuZ2Ugb2YgJDcgb3IgbW9yZSBpbiB0aGUgbW9ybmluZy4gCgpRdWVzdGlvbjogIEhvdyBjYW4gdGhlIGNhbG9yaWVzIGFmZmVjdCB0aGUgaGVhbHRoeSBsZXZlbCBpbiBvdXIgc25hY2tzPwoKYGBge3J9CmRvdFBsb3QofmNhbG9yaWVzIHwgaGVhbHRoeV9sZXZlbCwgZGF0YT1mb29kLCBtYWluPSAiY2Fsb3JpZXMgaGVhbHRoIGxldmVsIikKYGBgCi0gU2hhcGVzOiB0b3AgbGVmdCBncmFwaCBpcyBhIGxlZnQgc2tlZW0sIHRoZSBvbmUgdG8gdGhlIHJpZ2h0IG9mIGl0IGlzIHN5bW1ldHJpY2FsLCBhbmQgdGhlIGJvdHRvbSBncmFwaHMgYXJlIHN5bW1ldHJpY2FsCgoKLSBDZW50ZXJzOiAxODAgZm9yIHRoZSB0b3AgcmlnaHQsIHRvIHRoZSByaWdodCBvZiB0aGF0IGl0cyAxMDAsICBib3R0b20gcmlnaHQgaXMgYXJvdW5kIDE5MCwgIHRvIHRoZSByaWdodCBvZiB0aGF0IGlzIGFyb3VuZCAxOTAsIHRoZSBib3R0b20gbGVmdCBhcm91bmQgMTg1LgoKCi0gU3ByZWFkczogdG9wIHJpZ2h0IGlzIDQwMCwgbmV4dCB0byB0aGF0IGlzIDEwLCBib3R0b20gcmlnaHQgaXMgMzIwLCBuZXh0IHRvIHRoYXQgaXMgNTAwLCBuZXh0IHRvIHRoYXQgaXMgMzgwCgpDYWxvcmllcyBjYW4gYWZmZWN0IG91ciBoZWFsdGh5IGxldmVsIGluIG91ciBzbmFja3MgYmVjYXVzZSBpdCBkZXRlcm1pbmVzIHdoaWNoIHNuYWNrcyBhcmUgaGVhbHRoaWVyIGFuZCBhY2NvcmRpbmcgdG8gdGhlIGdyYXBoIG1vc3Qgc25hY2tzIGFyZSBub3QgaW4gdGhlIGhlYWx0aHkgcmFuZ2UuCgpRdWVzdGlvbjogRG9lcyB0aGUgYW1vdW50IG9mIGluZ3JlZGllbnRzIGFmZmVjdCB0aGUgc3VnYXIgdGhhdCBpcyBpbiBhIHNuYWNrPyAKCmBgYHtyfQpoaXN0b2dyYW0ofmluZ3JlZGllbnRzIHwgc3VnYXIsIGRhdGE9Zm9vZCwgbWFpbj0ic3VnYXIgYWZmZWN0cyB0aGUgaW5ncmVkaWVudHMiKQpgYGAKSSBjcmVhdGVkIGEgZ3JhcGggdGhhdCBzcGxpdCB0aGUgYW1vdW50IG9mIHN1Z2FyIGFuZCBpbmdyZWRpZW50cyB0byBzZWUgaWYgdGhlcmUgaXMgYW55IGVmZmVjdCBvbiBpdC4gU29tZXRoaW5nIGludGVyZXN0aW5nIEkgbm90aWNlZCBpcyB0aGF0IHRoZXJlJ3MgbWFueSB0aGluZ3MgdG8gbG9vayBhdCBhbmQgY29tcGFyZSBhbmQgdGhlcmUgYXJlIGFsbCBkaWZmZXJlbnQga2luZHMgb2YgZ3JhcGhzLiAKCkl0IGRvZXMgYWZmZWN0IGl0IGJlY2F1c2UgdGhlIGxlc3MgaW5ncmVkaWVudHMgdGhlIGxlc3Mgc3VnYXIgdGhlcmUgaXMgYnV0IGFsc28gdGhlIGhlYWx0aGllciB0aGUgc25hY2sgdGhlIGxlc3Mgc3VnYXIgaXQgaGFzLgo=