#Overview

The data referenced below comes from the United States Department of Agriculture Economic Research Service website. The dataset includes lists vegtables, the form that they are sold in, price per pound, and the preparation yield factor for the year of 2023.

Link to Dataset: https://www.ers.usda.gov/media/6240/all-vegetables-average-prices-csv-format.csv?v=92443

veg_prices <- read.csv("https://raw.githubusercontent.com/christinelee702-stack/Assignment1-Data607/refs/heads/main/vegetable-prices-2023.csv")
glimpse(veg_prices)
## Rows: 93
## Columns: 8
## $ Vegetable                       <chr> "Acorn squash", "Artichoke", "Artichok…
## $ Form                            <chr> "Fresh", "Fresh", "Canned", "Fresh", "…
## $ AverageRetailPrice              <dbl> 1.2414386, 2.5068559, 3.5051015, 3.212…
## $ AverageRetailPriceUnitOfMeasure <chr> "per pound", "per pound", "per pound",…
## $ PreparationYieldFactor          <dbl> 0.4586, 0.3750, 0.6500, 0.4938, 0.6500…
## $ SizeOfACupEquivalent            <dbl> 0.4519, 0.3858, 0.3858, 0.3968, 0.3968…
## $ CupEquivalentUnitOfMeasure      <chr> "pounds", "pounds", "pounds", "pounds"…
## $ AveragePricePerCupEquivalent    <dbl> 1.2235332, 2.0804609, 2.5791132, 2.581…
veg_dataframe <- select(
  veg_prices,
  Vegetable,
  Form,
  AverageRetailPrice,
)

veg_dataframe <- rename(
  veg_dataframe,
  vegetable = Vegetable,
  form = Form,
  average_price_per_pound = AverageRetailPrice,
)
glimpse(veg_dataframe)
## Rows: 93
## Columns: 3
## $ vegetable               <chr> "Acorn squash", "Artichoke", "Artichoke", "Asp…
## $ form                    <chr> "Fresh", "Fresh", "Canned", "Fresh", "Canned",…
## $ average_price_per_pound <dbl> 1.2414386, 2.5068559, 3.5051015, 3.2124534, 3.…

Conclusion

To further expand on exploring this data set I would look into how the prices of each form of vegtables compare. For example, I would calculate the average cost of froven vs. fresh vegtables. I would also be interested to see which vegetable has the highest price and which has the lowest.