Why is my DataStore getting an error? and How can I fix it?

If anyone could give me some help that'd be great, I haven't scripted in awhile and I forgot a few things about datastores, please help if you can.

Error:

07:41:37.793 - 104: Cannot store Dictionary in DataStore 07:41:37.794 - Stack Begin 07:41:37.794 - Script 'ServerScriptService.DataStore', Line 44 07:41:37.795 - Stack End

Code:

local dataService = game:GetService("DataStoreService"):GetDataStore("Alpha #1")

game.Players.PlayerAdded:Connect(function(plr)
    local char = plr.Character or plr.CharacterAdded:wait()

    local stats = Instance.new("Folder", plr)
    stats.Name = "Stats"

    local money = Instance.new("NumberValue", stats)
    money.Name = "Money"
    money.Value = 500

    local subscribers = Instance.new("NumberValue", stats)
    subscribers.Name = "Subscribers"

    local channel = Instance.new("StringValue", stats)
    channel.Name = "Channel"

    local characterCreated = Instance.new("BoolValue", stats)
    characterCreated.Name = "characterCreated"
    characterCreated.Value = false

    local hair = Instance.new("StringValue", stats)
    hair.Name = "Hair"
    local hairColor = Instance.new("Color3Value", stats)
    hairColor.Name = "HairColor"

    local shirt = Instance.new("StringValue", stats)
    shirt.Name = "Shirt"

    local pants = Instance.new("StringValue", stats)
    pants.Name = "Pants"



    local playerKey = plr.UserId .. "-key"
    local savedValues = dataService:GetAsync(playerKey)

    if not savedValues then
        local valuesToSave = {}
        for i,v in pairs(stats:GetChildren()) do
            valuesToSave[tostring(v.Name)] = v.Value
        end
        dataService:SetAsync(playerKey, valuesToSave)
        print("Successfully Saved Data!")
    else
        for i,v in pairs(savedValues) do
            stats[tostring(i)].Value = v
        end
        print("Successfully Loaded Data!")
    end


end)

game.Players.PlayerRemoving:Connect(function(plr)
    local playerKey = plr.UserId .. "-key"
    local valuesToSave = {}
    for i,v in pairs(plr.Stats:GetChildren()) do
        valuesToSave[tostring(v.Name)] = v.Value
    end
    dataService:SetAsync(playerKey, valuesToSave)
    print("Successfully Saved Data!")
end)